Let us set some global options for all code chunks in this document.

knitr::opts_chunk$set(
  message = FALSE,    # Disable messages printed by R code chunks
  warning = FALSE,    # Disable warnings printed by R code chunks
  echo = TRUE,        # Show R code within code chunks in output
  include = TRUE,     # Include both R code and its results in output
  eval = TRUE,       # Evaluate R code chunks
  cache = FALSE,       # Enable caching of R code chunks for faster rendering
  fig.align = "center",
  out.width = "100%",
  retina = 2,
  error = TRUE,
  collapse = TRUE
)
rm(list = ls())
set.seed(1982)

1 Preprocessing

Let us now load some required libraries.

# Load required libraries

# inla.upgrade(testing = TRUE)
# remotes::install_github("inlabru-org/inlabru", ref = "devel")
# remotes::install_github("davidbolin/rspde", ref = "devel")
# remotes::install_github("davidbolin/metricgraph", ref = "devel")
# remotes::install_github("davidbolin/ngme2", ref = "devel")

library(INLA)
#inla.setOption(num.threads = 7)
library(inlabru)
library(rSPDE)
library(MetricGraph)
library(ngme2)

library(plotly)
library(dplyr)

library(sf)

library(here)

Function standarize() below is later used to standardize the covariate SpeedLimit.

standardize <- function(x) {return((x - mean(x)) / sd(x))}

To keep track of the changes, we provide summaries of every new created object. Those summaries can be accessed by pressing the Show buttons below


We load the graph object sf_graph (which only contains weights) and the data (already graph-processed).

timeallprocedure <- Sys.time()
load(here("Graph_objects/graph_construction_19MAY24_FRC0134.RData"))
load(here("Data_files/data_day7142128_hour13_with_no_consecutive_zeros_19MAY24_FRC0134_graph_processed.RData"))
data_on_graph = data_on_graph %>% 
  dplyr::select(-datetime)

We check the units of the graph.

sf_graph$get_edge_lengths() %>% head() %>% capture.output() %>% grep("^Units:", ., value = TRUE)
## [1] "Units: [km]"
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 8781 
##   Degree 1: 15;  Degree 2: 6409;  Degree 3: 343;  Degree 4: 1842;  Degree 5: 58; 
##   Degree 6: 111;  Degree 7: 2;  Degree 8: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 11104 
##   Lengths: 
##       Min: 0.00283468  ; Max: 1.480513  ; Total: 505.6148 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: FALSE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: The graph has no data!
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0
summary(data_on_graph)
##        ID           speed              day       .distance_to_graph
##  Min.   :5701   Min.   :  0.000   Min.   :1.00   Min.   :0.000000  
##  1st Qu.:6592   1st Qu.:  1.609   1st Qu.:2.00   1st Qu.:0.001832  
##  Median :6712   Median : 17.703   Median :3.00   Median :0.004032  
##  Mean   :7378   Mean   : 20.107   Mean   :2.55   Mean   :0.004937  
##  3rd Qu.:8739   3rd Qu.: 30.577   3rd Qu.:4.00   3rd Qu.:0.006952  
##  Max.   :8969   Max.   :114.263   Max.   :4.00   Max.   :0.019993  
##   .edge_number   .distance_on_edge    .group             .coord_x     
##  Min.   :    1   Min.   :0.0000    Length:75899       Min.   :-122.5  
##  1st Qu.: 2347   1st Qu.:0.2586    Class :character   1st Qu.:-122.4  
##  Median : 4733   Median :0.5133    Mode  :character   Median :-122.4  
##  Mean   : 4968   Mean   :0.5067                       Mean   :-122.4  
##  3rd Qu.: 7639   3rd Qu.:0.7609                       3rd Qu.:-122.4  
##  Max.   :11104   Max.   :1.0000                       Max.   :-122.4  
##     .coord_y    
##  Min.   :37.70  
##  1st Qu.:37.74  
##  Median :37.77  
##  Mean   :37.76  
##  3rd Qu.:37.78  
##  Max.   :37.81

The following commands remove zero speed observations that are 1m away from the graph, and after that, they remove any speed observations that are 3m away from the graph.

to_remove = data_on_graph %>%
  filter(speed == 0, .distance_to_graph > 0.001) 

data_on_graph = setdiff(data_on_graph, to_remove) %>% 
  filter(.distance_to_graph <= 0.003)
summary(to_remove)
##        ID           speed        day        .distance_to_graph  .edge_number  
##  Min.   :5701   Min.   :0   Min.   :1.000   Min.   :0.001000   Min.   :    1  
##  1st Qu.:6588   1st Qu.:0   1st Qu.:2.000   1st Qu.:0.003133   1st Qu.: 2390  
##  Median :6702   Median :0   Median :3.000   Median :0.005536   Median : 4646  
##  Mean   :7312   Mean   :0   Mean   :2.556   Mean   :0.006552   Mean   : 4912  
##  3rd Qu.:8713   3rd Qu.:0   3rd Qu.:4.000   3rd Qu.:0.008880   3rd Qu.: 7550  
##  Max.   :8969   Max.   :0   Max.   :4.000   Max.   :0.019988   Max.   :11096  
##  .distance_on_edge    .group             .coord_x         .coord_y    
##  Min.   :0.0000    Length:15402       Min.   :-122.5   Min.   :37.70  
##  1st Qu.:0.2888    Class :character   1st Qu.:-122.4   1st Qu.:37.74  
##  Median :0.5322    Mode  :character   Median :-122.4   Median :37.77  
##  Mean   :0.5156                       Mean   :-122.4   Mean   :37.76  
##  3rd Qu.:0.7568                       3rd Qu.:-122.4   3rd Qu.:37.78  
##  Max.   :1.0000                       Max.   :-122.4   Max.   :37.81
summary(data_on_graph)
##        ID           speed             day        .distance_to_graph 
##  Min.   :5701   Min.   :  0.00   Min.   :1.000   Min.   :0.0000000  
##  1st Qu.:6589   1st Qu.: 12.87   1st Qu.:2.000   1st Qu.:0.0005897  
##  Median :6728   Median : 24.14   Median :3.000   Median :0.0012698  
##  Mean   :7485   Mean   : 25.98   Mean   :2.542   Mean   :0.0013554  
##  3rd Qu.:8769   3rd Qu.: 35.41   3rd Qu.:4.000   3rd Qu.:0.0020959  
##  Max.   :8969   Max.   :114.26   Max.   :4.000   Max.   :0.0029999  
##   .edge_number   .distance_on_edge    .group             .coord_x     
##  Min.   :    1   Min.   :0.0000    Length:25843       Min.   :-122.5  
##  1st Qu.: 2078   1st Qu.:0.2631    Class :character   1st Qu.:-122.5  
##  Median : 4558   Median :0.5218    Mode  :character   Median :-122.4  
##  Mean   : 4839   Mean   :0.5137                       Mean   :-122.4  
##  3rd Qu.: 7548   3rd Qu.:0.7700                       3rd Qu.:-122.4  
##  Max.   :11104   Max.   :0.9998                       Max.   :-122.4  
##     .coord_y    
##  Min.   :37.70  
##  1st Qu.:37.74  
##  Median :37.76  
##  Mean   :37.76  
##  3rd Qu.:37.78  
##  Max.   :37.81

We add data to the graph.

sf_graph$add_observations(data = data_on_graph, 
                          group = "day", 
                          normalized = TRUE, 
                          clear_obs = TRUE)
sf_graph$get_data()
## # A tibble: 25,842 × 9
##       ID speed   day .distance_to_graph .coord_x .coord_y .edge_number
##    <int> <dbl> <dbl>              <dbl>    <dbl>    <dbl>        <dbl>
##  1  8969  99.8     1           0.000426    -122.     37.7            2
##  2  6588  91.7     1           0.00206     -122.     37.7            2
##  3  8848  99.8     1           0.00256     -122.     37.7            2
##  4  6677  14.5     1           0.000436    -122.     37.8            3
##  5  6532  16.1     1           0.00226     -122.     37.8            3
##  6  6686  25.7     1           0.000499    -122.     37.8            3
##  7  6570  17.7     1           0.00252     -122.     37.8            5
##  8  6677  29.0     1           0.00222     -122.     37.8            6
##  9  6657  24.1     1           0.00203     -122.     37.8            6
## 10  6576  17.7     1           0.000274    -122.     37.8            6
## # ℹ 25,832 more rows
## # ℹ 2 more variables: .distance_on_edge <dbl>, .group <chr>
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 8781 
##   Degree 1: 15;  Degree 2: 6409;  Degree 3: 343;  Degree 4: 1842;  Degree 5: 58; 
##   Degree 6: 111;  Degree 7: 2;  Degree 8: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 11104 
##   Lengths: 
##       Min: 0.00283468  ; Max: 1.480513  ; Total: 505.6148 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: FALSE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: 
##   Columns:  ID speed day 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

We get the values of the weights at data locations. This essentially gives us covariates from the weights.

sf_graph$edgeweight_to_data(data_loc = TRUE)
sf_graph$get_data()
## # A tibble: 101,616 × 50
##       ID speed   day .distance_to_graph Length FRC   SpeedLimit StreetName
##    <int> <dbl> <dbl>              <dbl>  <dbl> <chr>      <dbl> <chr>     
##  1    NA  NA      NA          NA        0.0826 4             40 16th St   
##  2    NA  NA      NA          NA        0.0826 4             40 16th St   
##  3    NA  NA      NA          NA        0.0826 4             40 16th St   
##  4    NA  NA      NA          NA        0.0826 4             40 16th St   
##  5  8969  99.8     1           0.000426 0.137  0            105 I-280 N   
##  6  6588  91.7     1           0.00206  0.137  0            105 I-280 N   
##  7  8848  99.8     1           0.00256  0.137  0            105 I-280 N   
##  8    NA  NA      NA          NA        0.137  0            105 I-280 N   
##  9    NA  NA      NA          NA        0.137  0            105 I-280 N   
## 10    NA  NA      NA          NA        0.137  0            105 I-280 N   
## # ℹ 101,606 more rows
## # ℹ 42 more variables: harmonicAverageSpeed <dbl>, medianSpeed <dbl>,
## #   averageSpeed <dbl>, sampleSize <int>, averageTravelTime <dbl>,
## #   medianTravelTime <dbl>, travelTimeRatio <dbl>, List_Number <int>,
## #   `5percentile` <int>, `10percentile` <int>, `15percentile` <int>,
## #   `20percentile` <int>, `25percentile` <int>, `30percentile` <int>,
## #   `35percentile` <int>, `40percentile` <int>, `45percentile` <int>, …
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 8781 
##   Degree 1: 15;  Degree 2: 6409;  Degree 3: 343;  Degree 4: 1842;  Degree 5: 58; 
##   Degree 6: 111;  Degree 7: 2;  Degree 8: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 11104 
##   Lengths: 
##       Min: 0.00283468  ; Max: 1.480513  ; Total: 505.6148 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: FALSE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: 
##   Columns:  ID speed day Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

When running sf_graph$edgeweight_to_data(data_loc = TRUE), some NA values are created (because the data is grouped). We remove them below. We also standardize the SpeedLimit covariate.

data = sf_graph$get_data() %>% 
  drop_na(-StreetName) %>% # this drops all rows with at least one NA value but without taking into account StreetName
  mutate(across(c("SpeedLimit"), ~standardize(.))) %>%
  dplyr::select(speed, SpeedLimit)

The code of chunk below was executed only one time.


{r, eval = FALSE}
aux = data |>
  rename(distance_on_edge = .distance_on_edge, edge_number = .edge_number) |>
  as.data.frame() |>
  dplyr::select(edge_number, distance_on_edge, .group)

distmatrixlist = list()

for (i in 1:4) {
  distmatrixlist[[i]] = sf_graph$compute_geodist_PtE(PtE = aux %>% 
                                                       filter(.group == as.character(i)) %>% 
                                                       dplyr::select(-.group),
                                                     normalized = TRUE,
                                                     include_vertices = FALSE)
}


save(distmatrixlist, file = here("Models_output/distmatrixfixed_19May24.RData"))

The code of chunk above was executed only one time.


summary(data)
##      speed          SpeedLimit         .group           .edge_number  
##  Min.   :  0.00   Min.   :-2.0263   Length:25842       Min.   :    1  
##  1st Qu.: 12.87   1st Qu.:-0.4784   Class :character   1st Qu.: 2078  
##  Median : 24.14   Median :-0.4784   Mode  :character   Median : 4558  
##  Mean   : 25.98   Mean   : 0.0000                      Mean   : 4839  
##  3rd Qu.: 35.41   3rd Qu.: 0.0844                      3rd Qu.: 7548  
##  Max.   :114.26   Max.   : 4.0947                      Max.   :11104  
##  .distance_on_edge    .coord_x         .coord_y    
##  Min.   :0.0000    Min.   :-122.5   Min.   :37.70  
##  1st Qu.:0.2631    1st Qu.:-122.5   1st Qu.:37.74  
##  Median :0.5218    Median :-122.4   Median :37.76  
##  Mean   :0.5137    Mean   :-122.4   Mean   :37.76  
##  3rd Qu.:0.7700    3rd Qu.:-122.4   3rd Qu.:37.78  
##  Max.   :0.9998    Max.   :-122.4   Max.   :37.81

We add the data again but now with the new standardized SpeedLimit covariate.

sf_graph$add_observations(data = data, 
                          group = "day", 
                          normalized = TRUE, 
                          clear_obs = TRUE)
sf_graph$get_data()
## # A tibble: 25,842 × 7
##    speed SpeedLimit .coord_x .coord_y .edge_number .distance_on_edge .group
##    <dbl>      <dbl>    <dbl>    <dbl>        <dbl>             <dbl> <chr> 
##  1  99.8       4.09    -122.     37.7            2            0.195  1     
##  2  91.7       4.09    -122.     37.7            2            0.227  1     
##  3  99.8       4.09    -122.     37.7            2            0.363  1     
##  4  14.5      -1.04    -122.     37.8            3            0.309  1     
##  5  16.1      -1.04    -122.     37.8            3            0.583  1     
##  6  25.7      -1.04    -122.     37.8            3            0.925  1     
##  7  17.7      -1.04    -122.     37.8            5            0.0567 1     
##  8  29.0      -1.04    -122.     37.8            6            0.129  1     
##  9  24.1      -1.04    -122.     37.8            6            0.612  1     
## 10  17.7      -1.04    -122.     37.8            6            0.755  1     
## # ℹ 25,832 more rows
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 8781 
##   Degree 1: 15;  Degree 2: 6409;  Degree 3: 343;  Degree 4: 1842;  Degree 5: 58; 
##   Degree 6: 111;  Degree 7: 2;  Degree 8: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 11104 
##   Lengths: 
##       Min: 0.00283468  ; Max: 1.480513  ; Total: 505.6148 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: FALSE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: 
##   Columns:  speed SpeedLimit 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

We build a mesh.

h = 0.05
sf_graph$build_mesh(h = h)
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 8781 
##   Degree 1: 15;  Degree 2: 6409;  Degree 3: 343;  Degree 4: 1842;  Degree 5: 58; 
##   Degree 6: 111;  Degree 7: 2;  Degree 8: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 11104 
##   Lengths: 
##       Min: 0.00283468  ; Max: 1.480513  ; Total: 505.6148 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_4 class_0 class_3 class_1 upto1 upto3 upto4 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: FALSE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: 
##   Max h_e:  0.04999869  ; Min n_e:  0 
## 
## Data: 
##   Columns:  speed SpeedLimit 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

We get the value of the weights at mesh locations. This will allow us to built matrices B.sigma and B.range below. Again, sf_graph$edgeweight_to_data(mesh = TRUE, add = FALSE, return = TRUE) creates repeated information (because the data is grouped). We fix that by filtering one group. We also standardize the SpeedLimit covariate.

mesh = sf_graph$edgeweight_to_data(mesh = TRUE, 
                                   add = FALSE, 
                                   return = TRUE) %>% 
  filter(.group == 1) %>%
  mutate(across(c("SpeedLimit"), ~standardize(.))) %>%
  dplyr:::select.data.frame(SpeedLimit)
summary(mesh)
##    SpeedLimit      
##  Min.   :-1.91072  
##  1st Qu.:-0.76409  
##  Median :-0.34714  
##  Mean   : 0.00000  
##  3rd Qu.: 0.06981  
##  Max.   : 2.62366

1.1 Stationary model

  • Observe that we are considering replicates.
stat.time.ini <- Sys.time()
################################################################################
################################# STATIONARY MODEL #############################
################################################################################

rspde_model_stat <- rspde.metric_graph(sf_graph,
                                         parameterization = "matern",
                                         nu = 0.5)
str(rspde_model_stat)
## List of 21
##  $ f                   :List of 3
##   ..$ model   : chr "cgeneric"
##   ..$ n       : int 13932
##   ..$ cgeneric:List of 5
##   .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
##   .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. ..$ n    : int 13932
##   .. ..$ debug: logi FALSE
##   .. ..$ data :List of 5
##   .. .. ..$ ints      :List of 5
##   .. .. .. ..$ n          : int 13932
##   .. .. .. ..$ debug      : int 0
##   .. .. .. ..$ m_alpha    : int 1
##   .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. ..$ doubles   :List of 4
##   .. .. .. ..$ matrices_less   : num [1:58136] 0.0534 0 0 0 0.0776 ...
##   .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
##   .. .. .. ..$ start.theta     : num [1:2] 0 1.35
##   .. .. .. ..$ nu              : num 0.5
##   .. .. ..$ characters:List of 4
##   .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. ..$ matrices  :List of 1
##   .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. ..$ smatrices : list()
##   .. ..- attr(*, "class")= chr "inla.cgeneric"
##  $ cgeneric_type       : chr "int_alpha"
##  $ nu                  : num 0.5
##  $ theta.prior.mean    : num [1:2] 0 1.35
##  $ prior.nu            :List of 4
##   ..$ loglocation: num -5e-06
##   ..$ mean       : num 1
##   ..$ prec       : num 3
##   ..$ logscale   : num 1
##  $ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##  $ start.nu            : num 0.5
##  $ integer.nu          : logi TRUE
##  $ start.theta         : num [1:2] 0 1.35
##  $ stationary          : logi TRUE
##  $ rspde.order         : num 2
##  $ dim                 : num 1
##  $ est_nu              : logi FALSE
##  $ nu.upper.bound      : num 2
##  $ prior.nu.dist       : chr "lognormal"
##  $ debug               : logi FALSE
##  $ type.rational.approx: chr "chebfun"
##  $ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##  $ fem_mesh            :List of 4
##   ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. ..@ factors : list()
##   ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. ..@ factors : list()
##   ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. ..@ factors : list()
##   ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. ..@ factors : list()
##  $ parameterization    : chr "matern"
##  $ n.spde              : int 13932
##  - attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
data_rspde_bru_stat <- graph_data_rspde(rspde_model_stat,
                                        repl = ".all",
                                        loc_name = "loc")
str(data_rspde_bru_stat)
## List of 4
##  $ data :List of 8
##   ..$ speed            : num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   ..$ SpeedLimit       : num [1:25842] 4.09 4.09 4.09 -1.04 -1.04 ...
##   ..$ .coord_x         : num [1:25842] -122 -122 -122 -122 -122 ...
##   ..$ .coord_y         : num [1:25842] 37.7 37.7 37.7 37.8 37.8 ...
##   ..$ .edge_number     : num [1:25842] 2 2 2 3 3 3 5 6 6 6 ...
##   ..$ .distance_on_edge: num [1:25842] 0.195 0.227 0.363 0.309 0.583 ...
##   ..$ .group           : chr [1:25842] "1" "1" "1" "1" ...
##   ..$ loc              : num [1:25842, 1:2] 2 2 2 3 3 3 5 6 6 6 ...
##   ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##  $ index:List of 3
##   ..$ field      : int [1:55728] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ field.group: int [1:55728] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ field.repl : int [1:55728] 1 1 1 1 1 1 1 1 1 1 ...
##   ..- attr(*, "class")= chr [1:2] "inla_rspde_index" "list"
##   ..- attr(*, "rspde.order")= num 0
##   ..- attr(*, "integer_nu")= logi TRUE
##   ..- attr(*, "n.mesh")= int 13932
##   ..- attr(*, "name")= chr "field"
##   ..- attr(*, "n.group")= int 1
##   ..- attr(*, "n.repl")= int 4
##  $ repl : chr [1:25842] "1" "1" "1" "1" ...
##  $ basis:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. ..@ i       : int [1:51684] 0 1 3 8 9 10 11 12 13 14 ...
##   .. ..@ p       : int [1:55729] 0 0 0 2 2 10 16 16 16 21 ...
##   .. ..@ Dim     : int [1:2] 25842 55728
##   .. ..@ Dimnames:List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : NULL
##   .. ..@ x       : num [1:51684] 0.416 0.319 0.382 0.224 0.509 ...
##   .. ..@ factors : list()
cmp_stat = speed ~ -1 +
  Intercept(1) +
  SpeedLimit +
  field(loc, model = rspde_model_stat,
        replicate = data_rspde_bru_stat[["repl"]])

rspde_fit_stat <-
  bru(cmp_stat,
      data = data_rspde_bru_stat[["data"]],
      family = "T",
      options = list(verbose = FALSE)
  )
str(rspde_fit_stat)
## List of 56
##  $ names.fixed                : chr [1:2] "Intercept" "SpeedLimit"
##  $ summary.fixed              :'data.frame': 2 obs. of  7 variables:
##   ..$ mean      : num [1:2] 29.55 7.25
##   ..$ sd        : num [1:2] 0.28 0.184
##   ..$ 0.025quant: num [1:2] 29 6.88
##   ..$ 0.5quant  : num [1:2] 29.55 7.25
##   ..$ 0.975quant: num [1:2] 30.1 7.61
##   ..$ mode      : num [1:2] 29.55 7.25
##   ..$ kld       : num [1:2] 9.53e-11 1.20e-09
##  $ marginals.fixed            :List of 2
##   ..$ Intercept : num [1:43, 1:2] 28.4 28.5 28.7 28.9 29 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ SpeedLimit: num [1:43, 1:2] 6.46 6.56 6.67 6.82 6.88 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ summary.lincomb            :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb          : NULL
##  $ size.lincomb               : NULL
##  $ summary.lincomb.derived    :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb.derived  : NULL
##  $ size.lincomb.derived       : NULL
##  $ mlik                       : num [1:2, 1] -104206 -104203
##   ..- attr(*, "dimnames")=List of 2
##   .. ..$ : chr [1:2] "log marginal-likelihood (integration)" "log marginal-likelihood (Gaussian)"
##   .. ..$ : NULL
##  $ cpo                        :List of 3
##   ..$ cpo    : logi(0) 
##   ..$ pit    : logi(0) 
##   ..$ failure: logi(0) 
##  $ gcpo                       :List of 5
##   ..$ gcpo  : NULL
##   ..$ kld   : NULL
##   ..$ mean  : NULL
##   ..$ sd    : NULL
##   ..$ groups: NULL
##  $ po                         :List of 1
##   ..$ po: num [1:25842] 0.0306 0.0358 0.0325 0.0377 0.0354 ...
##  $ waic                       :List of 4
##   ..$ waic       : num 200656
##   ..$ p.eff      : num 5859
##   ..$ local.waic : num [1:25842] 7.29 6.78 7.15 6.61 6.82 ...
##   ..$ local.p.eff: num [1:25842] 0.1593 0.0587 0.1482 0.0266 0.0686 ...
##  $ residuals                  :List of 1
##   ..$ deviance.residuals: num [1:25842] 0 -0.602 0 0.489 -0.63 ...
##  $ model.random               : chr "CGeneric"
##  $ summary.random             :List of 1
##   ..$ field:'data.frame':    55728 obs. of  8 variables:
##   .. ..$ ID        : num [1:55728] 1 2 3 4 5 6 7 8 9 10 ...
##   .. ..$ mean      : num [1:55728] -4.92 -2.61 31.08 29.16 -11.36 ...
##   .. ..$ sd        : num [1:55728] 11.67 12 8.74 13.96 4.82 ...
##   .. ..$ 0.025quant: num [1:55728] -27.79 -26.13 13.94 1.79 -20.82 ...
##   .. ..$ 0.5quant  : num [1:55728] -4.92 -2.61 31.08 29.16 -11.36 ...
##   .. ..$ 0.975quant: num [1:55728] 17.96 20.92 48.23 56.52 -1.91 ...
##   .. ..$ mode      : num [1:55728] -4.92 -2.61 31.08 29.16 -11.36 ...
##   .. ..$ kld       : num [1:55728] 2.95e-11 3.21e-11 2.67e-11 2.57e-11 4.49e-11 ...
##  $ marginals.random           :List of 1
##   ..$ field:List of 55728
##   .. ..$ index.1    : num [1:43, 1:2] -54.7 -48.3 -41 -32.1 -27.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.2    : num [1:43, 1:2] -53.8 -47.3 -39.7 -30.5 -26.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.3    : num [1:43, 1:2] -6.21 -1.47 4.04 10.73 13.94 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.4    : num [1:43, 1:2] -30.42 -22.83 -14.03 -3.34 1.79 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.5    : num [1:43, 1:2] -31.9 -29.3 -26.3 -22.6 -20.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.6    : num [1:43, 1:2] -18.07 -15.29 -12.07 -8.15 -6.26 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.7    : num [1:43, 1:2] -59.6 -52.6 -44.4 -34.6 -29.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.8    : num [1:43, 1:2] -68.3 -60 -50.4 -38.8 -33.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.9    : num [1:43, 1:2] -28.9 -26.1 -22.9 -19 -17.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.10   : num [1:43, 1:2] -35 -32.5 -29.6 -26.1 -24.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.11   : num [1:43, 1:2] -43.3 -39.3 -34.6 -28.9 -26.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.12   : num [1:43, 1:2] -29.8 -26 -21.7 -16.3 -13.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.13   : num [1:43, 1:2] -17.43 -14.74 -11.61 -7.81 -5.99 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.14   : num [1:43, 1:2] -23.8 -21.3 -18.4 -14.9 -13.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.15   : num [1:43, 1:2] -34.2 -31.7 -28.8 -25.2 -23.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.16   : num [1:43, 1:2] -28.7 -26.4 -23.7 -20.4 -18.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.17   : num [1:43, 1:2] -61.3 -55.7 -49.1 -41.1 -37.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.18   : num [1:43, 1:2] -75 -67.3 -58.4 -47.7 -42.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.19   : num [1:43, 1:2] -55.9 -51.1 -45.6 -38.9 -35.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.20   : num [1:43, 1:2] -51.3 -46.2 -40.4 -33.2 -29.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.21   : num [1:43, 1:2] -27.6 -25.3 -22.7 -19.5 -17.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.22   : num [1:43, 1:2] -37.8 -33.8 -29.2 -23.6 -20.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.23   : num [1:43, 1:2] -25.6 -22.5 -19 -14.7 -12.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.24   : num [1:43, 1:2] -21.4 -19.6 -17.5 -15 -13.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.25   : num [1:43, 1:2] -19.8 -17.9 -15.8 -13.2 -12 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.26   : num [1:43, 1:2] -38 -31.8 -24.6 -15.9 -11.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.27   : num [1:43, 1:2] -1.133 0.858 3.168 5.977 7.325 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.28   : num [1:43, 1:2] -33.9 -31.1 -27.9 -24 -22.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.29   : num [1:43, 1:2] -52.1 -47.6 -42.5 -36.2 -33.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.30   : num [1:43, 1:2] -45.9 -40.9 -35.1 -28.1 -24.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.31   : num [1:43, 1:2] -26.3 -23.7 -20.8 -17.2 -15.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.32   : num [1:43, 1:2] -29.9 -27.8 -25.3 -22.3 -20.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.33   : num [1:43, 1:2] -66.4 -57.2 -46.6 -33.7 -27.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.34   : num [1:43, 1:2] -63.7 -54.7 -44.2 -31.4 -25.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.35   : num [1:43, 1:2] -37.6 -32.5 -26.5 -19.3 -15.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.36   : num [1:43, 1:2] -43.1 -37.2 -30.4 -22.2 -18.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.37   : num [1:43, 1:2] -71.5 -64.5 -56.4 -46.5 -41.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.38   : num [1:43, 1:2] -70.2 -63 -54.7 -44.5 -39.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.39   : num [1:43, 1:2] -32.8 -29.4 -25.4 -20.6 -18.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.40   : num [1:43, 1:2] -31.8 -29 -25.8 -21.9 -20 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.41   : num [1:43, 1:2] -35 -29.8 -23.7 -16.3 -12.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.42   : num [1:43, 1:2] -35.2 -30.1 -24.2 -17 -13.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.43   : num [1:43, 1:2] -65.3 -57.3 -48 -36.7 -31.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.44   : num [1:43, 1:2] -59.2 -51.9 -43.6 -33.4 -28.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.45   : num [1:43, 1:2] -62.6 -55 -46.1 -35.4 -30.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.46   : num [1:43, 1:2] -59.8 -53.3 -45.8 -36.7 -32.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.47   : num [1:43, 1:2] -49.5 -45.1 -40.1 -33.9 -31 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.48   : num [1:43, 1:2] -67.9 -60.2 -51.3 -40.5 -35.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.49   : num [1:43, 1:2] -66.8 -59.2 -50.3 -39.6 -34.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.50   : num [1:43, 1:2] -47.6 -42.5 -36.5 -29.3 -25.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.51   : num [1:43, 1:2] -66.8 -58.9 -49.7 -38.6 -33.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.52   : num [1:43, 1:2] -49.9 -44.9 -39.1 -32.1 -28.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.53   : num [1:43, 1:2] -64.9 -57 -47.9 -36.8 -31.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.54   : num [1:43, 1:2] -50.9 -44.7 -37.4 -28.6 -24.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.55   : num [1:43, 1:2] -63.5 -55.7 -46.7 -35.7 -30.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.56   : num [1:43, 1:2] -60.1 -52.9 -44.5 -34.3 -29.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.57   : num [1:43, 1:2] -32.4 -28 -22.8 -16.5 -13.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.58   : num [1:43, 1:2] -44.7 -39.4 -33.3 -25.8 -22.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.59   : num [1:43, 1:2] -48 -43.6 -38.5 -32.4 -29.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.60   : num [1:43, 1:2] -62 -55.8 -48.5 -39.7 -35.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.61   : num [1:43, 1:2] -69.3 -61.9 -53.4 -43.1 -38.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.62   : num [1:43, 1:2] -41.5 -37.7 -33.2 -27.8 -25.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.63   : num [1:43, 1:2] -51.4 -45.8 -39.4 -31.5 -27.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.64   : num [1:43, 1:2] -51.2 -45.4 -38.8 -30.7 -26.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.65   : num [1:43, 1:2] -44.3 -39.4 -33.7 -26.7 -23.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.66   : num [1:43, 1:2] -70.8 -63.2 -54.4 -43.7 -38.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.67   : num [1:43, 1:2] -67.8 -60.7 -52.4 -42.3 -37.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.68   : num [1:43, 1:2] -49 -43.4 -36.8 -28.9 -25.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.69   : num [1:43, 1:2] -45.9 -40.7 -34.6 -27.3 -23.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.70   : num [1:43, 1:2] -46.6 -41.4 -35.5 -28.3 -24.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.71   : num [1:43, 1:2] -49.7 -44.3 -38 -30.4 -26.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.72   : num [1:43, 1:2] -69.2 -60.3 -50.1 -37.6 -31.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.73   : num [1:43, 1:2] -66.8 -58.2 -48.2 -36 -30.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.74   : num [1:43, 1:2] -70.4 -61.6 -51.2 -38.7 -32.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.75   : num [1:43, 1:2] -71.8 -62.7 -52.2 -39.4 -33.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.76   : num [1:43, 1:2] -60.6 -53 -44.3 -33.6 -28.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.77   : num [1:43, 1:2] -67.7 -59.2 -49.4 -37.4 -31.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.78   : num [1:43, 1:2] -54.7 -48 -40.2 -30.7 -26.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.79   : num [1:43, 1:2] -53.7 -47.2 -39.6 -30.4 -25.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.80   : num [1:43, 1:2] -50.6 -44.3 -37.1 -28.4 -24.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.81   : num [1:43, 1:2] -51.9 -45.4 -37.9 -28.8 -24.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.82   : num [1:43, 1:2] -52.1 -45.6 -38 -28.8 -24.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.83   : num [1:43, 1:2] -31.8 -28.2 -24 -18.9 -16.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.84   : num [1:43, 1:2] -26.2 -23.3 -20 -16 -14.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.85   : num [1:43, 1:2] -60.4 -51.7 -41.7 -29.4 -23.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.86   : num [1:43, 1:2] -63.1 -54.2 -43.8 -31.3 -25.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.87   : num [1:43, 1:2] -51.7 -45.2 -37.5 -28.3 -23.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.88   : num [1:43, 1:2] -50.4 -44 -36.5 -27.5 -23.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.89   : num [1:43, 1:2] -60.6 -52.2 -42.3 -30.3 -24.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.90   : num [1:43, 1:2] -58.7 -50.3 -40.7 -29 -23.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.91   : num [1:43, 1:2] -25.4 -22.8 -19.8 -16.1 -14.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.92   : num [1:43, 1:2] -21 -18.9 -16.5 -13.5 -12.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.93   : num [1:43, 1:2] -52.1 -45.5 -37.8 -28.6 -24.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.94   : num [1:43, 1:2] -51.9 -45.3 -37.7 -28.4 -23.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.95   : num [1:43, 1:2] -18.59 -16.32 -13.69 -10.5 -8.96 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.96   : num [1:43, 1:2] -8.332 -5.906 -3.09 0.332 1.974 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.97   : num [1:43, 1:2] -38.1 -33.4 -27.9 -21.2 -18.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.98   : num [1:43, 1:2] -37.1 -33.2 -28.7 -23.3 -20.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.99   : num [1:43, 1:2] -33.3 -30.1 -26.4 -21.9 -19.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. .. [list output truncated]
##  $ size.random                :List of 1
##   ..$ :List of 5
##   .. ..$ n     : num 13932
##   .. ..$ N     : num 13932
##   .. ..$ Ntotal: num 55728
##   .. ..$ ngroup: num 1
##   .. ..$ nrep  : num 4
##  $ summary.linear.predictor   :'data.frame': 81572 obs. of  7 variables:
##   ..$ mean      : num [1:81572] 93.6 94.1 95.5 14.4 18.3 ...
##   ..$ sd        : num [1:81572] 4.96 4.85 5.77 4.32 5.19 ...
##   ..$ 0.025quant: num [1:81572] 83.85 84.61 84.17 5.96 8.08 ...
##   ..$ 0.5quant  : num [1:81572] 93.6 94.1 95.5 14.4 18.3 ...
##   ..$ 0.975quant: num [1:81572] 103.3 103.6 106.8 22.9 28.4 ...
##   ..$ mode      : num [1:81572] 93.6 94.1 95.5 14.4 18.3 ...
##   ..$ kld       : num [1:81572] 5.03e-11 5.02e-11 4.99e-11 4.82e-11 4.58e-11 ...
##  $ marginals.linear.predictor : NULL
##  $ summary.fitted.values      :'data.frame': 81572 obs. of  6 variables:
##   ..$ mean      : num [1:81572] 93.6 94.1 95.5 14.4 18.3 ...
##   ..$ sd        : num [1:81572] 4.96 4.85 5.77 4.32 5.19 ...
##   ..$ 0.025quant: num [1:81572] 83.85 84.61 84.17 5.96 8.08 ...
##   ..$ 0.5quant  : num [1:81572] 93.6 94.1 95.5 14.4 18.3 ...
##   ..$ 0.975quant: num [1:81572] 103.3 103.6 106.8 22.9 28.4 ...
##   ..$ mode      : num [1:81572] 93.6 94.1 95.5 14.4 18.3 ...
##  $ marginals.fitted.values    : NULL
##  $ size.linear.predictor      :List of 5
##   ..$ n     : num 55730
##   ..$ N     : num 55730
##   ..$ Ntotal: num 81572
##   ..$ ngroup: num 1
##   ..$ nrep  : num 2
##  $ summary.hyperpar           :'data.frame': 4 obs. of  6 variables:
##   ..$ mean      : num [1:4] 0.00887 7.78845 2.82696 -1.23064
##   ..$ sd        : num [1:4] 0.000221 0.169683 0.019555 0.04302
##   ..$ 0.025quant: num [1:4] 0.00855 7.50722 2.7824 -1.29653
##   ..$ 0.5quant  : num [1:4] 0.00884 7.7773 2.82917 -1.2359
##   ..$ 0.975quant: num [1:4] 0.00939 8.17217 2.85754 -1.13189
##   ..$ mode      : num [1:4] 0.0087 7.7037 2.8402 -1.2629
##  $ marginals.hyperpar         :List of 4
##   ..$ precision for the student-t observations: num [1:43, 1:2] 0.00834 0.00839 0.00844 0.00851 0.00855 ...
##   .. ..- attr(*, "hyperid")= chr "100001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ degrees of freedom for student-t        : num [1:43, 1:2] 7.26 7.32 7.38 7.47 7.51 ...
##   .. ..- attr(*, "hyperid")= chr "100002|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                        : num [1:43, 1:2] 2.72 2.74 2.75 2.77 2.78 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                        : num [1:43, 1:2] -1.35 -1.33 -1.32 -1.3 -1.3 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ internal.summary.hyperpar  :'data.frame': 4 obs. of  6 variables:
##   ..$ mean      : num [1:4] -4.72 1.76 2.83 -1.23
##   ..$ sd        : num [1:4] 0.0245 0.029 0.0195 0.0429
##   ..$ 0.025quant: num [1:4] -4.76 1.71 2.78 -1.3
##   ..$ 0.5quant  : num [1:4] -4.73 1.75 2.83 -1.24
##   ..$ 0.975quant: num [1:4] -4.67 1.82 2.86 -1.13
##   ..$ mode      : num [1:4] -4.74 1.74 2.84 -1.26
##  $ internal.marginals.hyperpar:List of 4
##   ..$ log precision for the student-t observations: num [1:43, 1:2] -4.79 -4.78 -4.77 -4.77 -4.76 ...
##   .. ..- attr(*, "hyperid")= chr "100001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ dof_intern for student-t                    : num [1:43, 1:2] 1.66 1.67 1.68 1.7 1.71 ...
##   .. ..- attr(*, "hyperid")= chr "100002|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                            : num [1:43, 1:2] 2.72 2.74 2.75 2.77 2.78 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                            : num [1:43, 1:2] -1.35 -1.33 -1.32 -1.3 -1.3 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ offset.linear.predictor    : num [1:81572] 0 0 0 0 0 0 0 0 0 0 ...
##  $ model.spde2.blc            : NULL
##  $ summary.spde2.blc          : list()
##  $ marginals.spde2.blc        : NULL
##  $ size.spde2.blc             : NULL
##  $ model.spde3.blc            : NULL
##  $ summary.spde3.blc          : list()
##  $ marginals.spde3.blc        : NULL
##  $ size.spde3.blc             : NULL
##  $ logfile                    : chr [1:4783] "[PANUA] PARDISO License is expired." "[PANUA] Please obtain a new PARDISO license at https://www.panua.ch/products/pardiso" "        Read ntt 24 1 with max.threads 24" "        Found num.threads = 24:1 max_threads = 24" ...
##  $ misc                       :List of 22
##   ..$ cov.intern                        : num [1:4, 1:4] 0.000429 0.000466 -0.000174 0.000244 0.000466 ...
##   ..$ cor.intern                        : num [1:4, 1:4] 1 0.59 -0.484 0.325 0.59 ...
##   ..$ cov.intern.eigenvalues            : num [1:4] 2.74e-05 2.04e-04 1.63e-03 1.63e-03
##   ..$ cov.intern.eigenvectors           : num [1:4, 1:4] -0.358 0.14 -0.873 -0.3 0.836 ...
##   ..$ reordering                        : int [1:55730] 22273 22283 14788 14801 24958 25021 24765 24784 25023 24801 ...
##   ..$ theta.tags                        : chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   ..$ log.posterior.mode                : num -104191
##   ..$ stdev.corr.negative               : num [1:4] 1.091 0.794 2.454 0.607
##   ..$ stdev.corr.positive               : num [1:4] 0.917 1.26 0.407 1.647
##   ..$ to.theta                          :List of 4
##   .. ..$ log precision for the student-t observations:function (x)  
##   .. ..$ dof_intern for student-t                    :function (x)  
##   .. ..$ Theta1 for field                            :function (x)  
##   .. ..$ Theta2 for field                            :function (x)  
##   ..$ from.theta                        :List of 4
##   .. ..$ log precision for the student-t observations:function (x)  
##   .. ..$ dof_intern for student-t                    :function (x)  
##   .. ..$ Theta1 for field                            :function (x)  
##   .. ..$ Theta2 for field                            :function (x)  
##   ..$ mode.status                       : num 0
##   ..$ lincomb.derived.correlation.matrix: NULL
##   ..$ lincomb.derived.covariance.matrix : NULL
##   ..$ opt.directions                    : num [1:4, 1:4] 0.767 -0.413 -0.254 -0.421 0.298 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : chr [1:4] "theta:1" "theta:2" "theta:3" "theta:4"
##   .. .. ..$ : chr [1:4] "dir:1" "dir:2" "dir:3" "dir:4"
##   ..$ configs                           :List of 17
##   .. ..$ .preopt          : logi TRUE
##   .. ..$ lite             : logi FALSE
##   .. ..$ mpred            : int 25842
##   .. ..$ npred            : int 55730
##   .. ..$ mnpred           : int 81572
##   .. ..$ Npred            : int 25842
##   .. ..$ n                : int 55730
##   .. ..$ nz               : int 153769
##   .. ..$ prior_nz         : int 116274
##   .. ..$ ntheta           : int 4
##   .. ..$ nconfig          : int 25
##   .. ..$ offsets          : num [1:81572] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ contents         :List of 3
##   .. .. ..$ tag   : chr [1:5] "APredictor" "Predictor" "field" "Intercept" ...
##   .. .. ..$ start : int [1:5] 1 25843 81573 137301 137302
##   .. .. ..$ length: int [1:5] 25842 55730 55728 1 1
##   .. ..$ A                :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:55730] 2 3 4 5 6 7 8 9 10 11 ...
##   .. .. .. ..@ j       : int [1:55730] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:55730] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ pA               :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:103342] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:103342] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 25842 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:103342] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ config           :List of 25
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.74 1.74 2.85 -1.26
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.17
##   .. .. .. ..$ log.posterior.orig: num -0.172
##   .. .. .. ..$ mean              : num [1:55730] -4.98 -2.65 31.07 29.21 -11.5 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.94 -2.63 31.13 29.25 -11.38 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0505 0.0254 0.0155 0.0109 0.0462 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 136.7 144.7 76.6 195.2 23.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0505 0.0254 0.0122 0.0109 0.0133 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.077787 -0.031711 0.055517 0.000658 -0.028745 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.1 95.5 14.4 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.56 7.24 -4.94 -2.63 31.13 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.75 1.74 2.84 -1.26
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -3.2
##   .. .. .. ..$ log.posterior.orig: num 0
##   .. .. .. ..$ mean              : num [1:55730] -4.94 -2.62 30.89 28.99 -11.38 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.91 -2.6 30.97 29.05 -11.26 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0513 0.0258 0.0156 0.0111 0.0463 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 134.3 142.1 75.9 192.3 23.2 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0513 0.0258 0.0124 0.0111 0.0135 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.078014 -0.030926 0.055994 0.000267 -0.028699 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.5 94.1 95.4 14.5 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.53 7.27 -4.91 -2.6 30.97 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.74 1.74 2.86 -1.26
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -4.28
##   .. .. .. ..$ log.posterior.orig: num -1.08
##   .. .. .. ..$ mean              : num [1:55730] -5.02 -2.67 31.29 29.47 -11.64 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.99 -2.65 31.32 29.49 -11.51 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0496 0.0249 0.0153 0.0107 0.0461 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 139.6 147.8 77.4 198.7 23.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0496 0.0249 0.012 0.0107 0.0131 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.07753 -0.03264 0.05496 0.00113 -0.0288 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.2 95.6 14.4 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.58 7.19 -4.99 -2.65 31.32 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.71 1.73 2.84 -1.28
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -5.01
##   .. .. .. ..$ log.posterior.orig: num -1.81
##   .. .. .. ..$ mean              : num [1:55730] -4.9 -2.59 30.94 28.95 -11.51 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.87 -2.57 31 29 -11.38 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0509 0.0256 0.0157 0.011 0.0473 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 134.1 141.7 75.3 192.4 22.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0509 0.0256 0.0123 0.011 0.0135 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.08021 -0.03334 0.05714 0.00117 -0.02957 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.2 95.5 14.4 18.2 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.55 7.27 -4.87 -2.57 31 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.76 1.75 2.86 -1.25
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -6.66
##   .. .. .. ..$ log.posterior.orig: num -3.46
##   .. .. .. ..$ mean              : num [1:55730] -5.03 -2.68 31.15 29.36 -11.49 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.99 -2.66 31.21 29.41 -11.37 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0502 0.0253 0.0153 0.0108 0.0455 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 138.4 146.6 77.4 197 23.6 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0502 0.0253 0.0121 0.0108 0.0133 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.076295 -0.030719 0.054519 0.000353 -0.028236 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.1 95.5 14.5 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.56 7.21 -4.99 -2.66 31.21 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.76 1.71 2.86 -1.28
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -6.71
##   .. .. .. ..$ log.posterior.orig: num -3.51
##   .. .. .. ..$ mean              : num [1:55730] -4.89 -2.58 30.98 28.96 -11.53 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.85 -2.56 31.05 29 -11.41 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.049 0.0247 0.0151 0.0106 0.0456 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 139.1 146.9 78.2 199.7 23.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.049 0.0247 0.0119 0.0106 0.013 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.07717 -0.03174 0.05503 0.00111 -0.02846 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.1 95.5 14.4 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.55 7.26 -4.85 -2.56 31.05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.65 1.91 2.81 -1.16
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -49.3
##   .. .. .. ..$ log.posterior.orig: num -46.1
##   .. .. .. ..$ mean              : num [1:55730] -5.51 -3.05 31.58 30.66 -11.32 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.48 -3.02 31.67 30.73 -11.21 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0605 0.0303 0.018 0.013 0.0503 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 122.8 131.4 67.3 169.5 21.1 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0605 0.0303 0.0146 0.013 0.0159 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.08186 -0.03166 0.05871 -0.00212 -0.03065 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.5 94 95.4 14.6 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.59 7.1 -5.48 -3.02 31.67 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.74 1.66 2.8 -1.15
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -22
##   .. .. .. ..$ log.posterior.orig: num -18.8
##   .. .. .. ..$ mean              : num [1:55730] -5.55 -3.09 30.95 30.27 -10.9 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.51 -3.07 31.08 30.37 -10.79 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0624 0.0313 0.0183 0.0134 0.0497 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 120.5 129.2 66.5 165.8 21.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0624 0.0313 0.015 0.0134 0.0164 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.0809 -0.03077 0.05852 -0.00327 -0.02997 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.5 94 95.4 14.7 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.53 7.26 -5.51 -3.07 31.08 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.74 1.77 2.87 -1.3
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -7.88
##   .. .. .. ..$ log.posterior.orig: num -4.68
##   .. .. .. ..$ mean              : num [1:55730] -4.76 -2.48 31.1 28.75 -11.72 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.73 -2.46 31.14 28.78 -11.6 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0467 0.0235 0.0146 0.0101 0.0451 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 143 150.7 80.7 207.1 24.1 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0467 0.0235 0.0113 0.0101 0.0124 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.0767 -0.03203 0.0545 0.00209 -0.02832 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.2 95.5 14.3 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.56 7.23 -4.73 -2.46 31.14 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.71 1.84 2.85 -1.23
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -5.41
##   .. .. .. ..$ log.posterior.orig: num -2.21
##   .. .. .. ..$ mean              : num [1:55730] -5.19 -2.79 31.49 29.95 -11.58 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.15 -2.77 31.55 29.99 -11.47 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0525 0.0264 0.016 0.0113 0.0471 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 134.8 143.3 74.5 190.1 22.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0525 0.0264 0.0127 0.0113 0.0139 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.078296 -0.031811 0.055726 0.000098 -0.029209 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.1 95.5 14.5 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.59 7.13 -5.15 -2.77 31.55 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.71 1.79 2.81 -1.15
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -22.5
##   .. .. .. ..$ log.posterior.orig: num -19.3
##   .. .. .. ..$ mean              : num [1:55730] -5.58 -3.1 31.41 30.66 -11.17 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.54 -3.08 31.51 30.74 -11.06 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0607 0.0304 0.0179 0.013 0.0495 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 123.6 132.6 67.6 169.9 21.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0607 0.0304 0.0146 0.013 0.016 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.08038 -0.03109 0.05775 -0.00262 -0.03002 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.5 94 95.4 14.7 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.57 7.15 -5.54 -3.08 31.51 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.76 1.74 2.87 -1.28
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -10.6
##   .. .. .. ..$ log.posterior.orig: num -7.45
##   .. .. .. ..$ mean              : num [1:55730] -4.87 -2.56 31.19 29.06 -11.69 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.84 -2.54 31.22 29.09 -11.56 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0473 0.0238 0.0147 0.0102 0.0449 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 143.4 151.4 80.3 206.2 24.1 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0473 0.0238 0.0114 0.0102 0.0125 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.07606 -0.03184 0.05399 0.00167 -0.02816 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.2 95.5 14.4 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.57 7.21 -4.84 -2.54 31.22 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.76 1.69 2.84 -1.21
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -5.47
##   .. .. .. ..$ log.posterior.orig: num -2.27
##   .. .. .. ..$ mean              : num [1:55730] -5.27 -2.87 31.13 29.86 -11.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.23 -2.85 31.21 29.92 -11.16 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0546 0.0274 0.0164 0.0118 0.0471 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 131.7 140.3 72.9 184.6 22.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0546 0.0274 0.0132 0.0118 0.0144 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.078104 -0.031252 0.055919 -0.000975 -0.028967 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.1 95.5 14.6 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.55 7.22 -5.23 -2.85 31.21 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.68 1.83 2.84 -1.24
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -13.3
##   .. .. .. ..$ log.posterior.orig: num -10.1
##   .. .. .. ..$ mean              : num [1:55730] -5.12 -2.75 31.39 29.75 -11.59 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.09 -2.73 31.43 29.78 -11.47 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0529 0.0266 0.0162 0.0114 0.0481 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 132.8 140.9 73.5 187.8 22.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0529 0.0266 0.0128 0.0114 0.014 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.080277 -0.033127 0.057045 0.000498 -0.029887 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.2 95.5 14.4 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.59 7.16 -5.09 -2.73 31.43 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.68 1.78 2.8 -1.16
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -37.3
##   .. .. .. ..$ log.posterior.orig: num -34.1
##   .. .. .. ..$ mean              : num [1:55730] -5.52 -3.05 31.31 30.48 -11.18 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.48 -3.03 31.4 30.55 -11.06 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0612 0.0306 0.0181 0.0131 0.0505 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 121.8 130.4 66.7 168 21 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0612 0.0306 0.0147 0.0131 0.0161 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.0824 -0.0324 0.0591 -0.0023 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.5 94.1 95.4 14.6 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.57 7.18 -5.48 -3.03 31.4 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.73 1.73 2.86 -1.3
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -5.39
##   .. .. .. ..$ log.posterior.orig: num -2.19
##   .. .. .. ..$ mean              : num [1:55730] -4.8 -2.51 31.09 28.86 -11.7 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.77 -2.5 31.11 28.88 -11.57 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0476 0.024 0.0148 0.0103 0.0458 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 141.2 148.9 79.2 203.7 23.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0476 0.024 0.0115 0.0103 0.0126 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.07799 -0.03315 0.05528 0.00211 -0.02882 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.7 94.2 95.6 14.3 18.2 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.57 7.24 -4.77 -2.5 31.11 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.73 1.68 2.83 -1.22
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -7.01
##   .. .. .. ..$ log.posterior.orig: num -3.82
##   .. .. .. ..$ mean              : num [1:55730] -5.21 -2.82 31.02 29.66 -11.29 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.17 -2.8 31.1 29.73 -11.16 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.055 0.0276 0.0166 0.0118 0.048 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 129.7 137.9 71.9 182.4 22.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.055 0.0276 0.0133 0.0118 0.0145 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.080084 -0.032575 0.057242 -0.000616 -0.029644 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.1 95.5 14.5 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.55 7.25 -5.17 -2.8 31.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.71 1.84 2.84 -1.23
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -5.86
##   .. .. .. ..$ log.posterior.orig: num -2.66
##   .. .. .. ..$ mean              : num [1:55730] -5.15 -2.77 31.29 29.71 -11.46 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.11 -2.75 31.36 29.76 -11.34 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0534 0.0268 0.0162 0.0115 0.0472 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 132.3 140.5 73.8 187 22.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0534 0.0268 0.0129 0.0115 0.0141 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.078551 -0.030951 0.056255 -0.000329 -0.029161 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.5 94.1 95.4 14.5 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.57 7.17 -5.11 -2.75 31.36 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.71 1.79 2.8 -1.15
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -25.8
##   .. .. .. ..$ log.posterior.orig: num -22.6
##   .. .. .. ..$ mean              : num [1:55730] -5.53 -3.07 31.21 30.42 -11.05 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.5 -3.05 31.32 30.51 -10.93 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0618 0.0309 0.0182 0.0132 0.0496 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 121.3 130 67 167.2 21.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0618 0.0309 0.0149 0.0132 0.0163 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.08064 -0.0302 0.0583 -0.00303 -0.02997 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.5 94 95.3 14.7 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.55 7.19 -5.5 -3.05 31.32 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.76 1.74 2.86 -1.29
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -8.93
##   .. .. .. ..$ log.posterior.orig: num -5.74
##   .. .. .. ..$ mean              : num [1:55730] -4.83 -2.54 30.99 28.82 -11.56 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.8 -2.52 31.06 28.87 -11.44 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0481 0.0242 0.0148 0.0104 0.045 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 140.7 148.4 79.5 202.8 24 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0481 0.0242 0.0116 0.0104 0.0127 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.0763 -0.031 0.0545 0.00124 -0.02811 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.1 95.5 14.4 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.55 7.25 -4.8 -2.52 31.06 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.76 1.69 2.83 -1.21
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -6.64
##   .. .. .. ..$ log.posterior.orig: num -3.44
##   .. .. .. ..$ mean              : num [1:55730] -5.23 -2.84 30.93 29.62 -11.16 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.19 -2.82 31.03 29.7 -11.04 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0556 0.0279 0.0166 0.012 0.0472 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 129.2 137.5 72.2 181.6 22.6 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0556 0.0279 0.0134 0.012 0.0147 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.07835 -0.03039 0.05645 -0.00139 -0.02892 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.5 94 95.4 14.6 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.53 7.26 -5.19 -2.82 31.03 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.68 1.83 2.83 -1.24
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -14
##   .. .. .. ..$ log.posterior.orig: num -10.8
##   .. .. .. ..$ mean              : num [1:55730] -5.08 -2.72 31.19 29.51 -11.46 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.05 -2.7 31.25 29.55 -11.35 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0538 0.027 0.0164 0.0116 0.0482 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 130.2 138.1 72.7 184.8 22.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0538 0.027 0.013 0.0116 0.0142 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 8.05e-02 -3.22e-02 5.76e-02 5.55e-05 -2.98e-02 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.1 95.5 14.5 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.57 7.2 -5.05 -2.7 31.25 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.68 1.78 2.79 -1.17
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -40.9
##   .. .. .. ..$ log.posterior.orig: num -37.7
##   .. .. .. ..$ mean              : num [1:55730] -5.47 -3.03 31.11 30.23 -11.05 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.44 -3.01 31.21 30.32 -10.94 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0622 0.0312 0.0184 0.0133 0.0506 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 119.5 127.8 66 165.3 20.9 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0622 0.0312 0.015 0.0133 0.0164 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.08266 -0.0315 0.05967 -0.00273 -0.03067 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.5 94 95.4 14.7 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.54 7.22 -5.44 -3.01 31.21 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.74 1.73 2.85 -1.3
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -3.98
##   .. .. .. ..$ log.posterior.orig: num -0.786
##   .. .. .. ..$ mean              : num [1:55730] -4.76 -2.49 30.88 28.62 -11.57 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.73 -2.47 30.96 28.68 -11.45 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0484 0.0244 0.015 0.0105 0.0459 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 138.5 145.9 78.4 200.4 23.6 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0484 0.0244 0.0117 0.0105 0.0128 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.07823 -0.0323 0.0558 0.00167 -0.02877 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.6 94.2 95.5 14.4 18.2 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.54 7.27 -4.73 -2.47 30.96 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:4] -4.74 1.68 2.82 -1.22
##   .. .. .. .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   .. .. .. ..$ log.posterior     : num -8.47
##   .. .. .. ..$ log.posterior.orig: num -5.27
##   .. .. .. ..$ mean              : num [1:55730] -5.17 -2.8 30.82 29.42 -11.16 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -5.13 -2.78 30.92 29.5 -11.04 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.0559 0.0281 0.0168 0.0121 0.0481 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 127.2 135.2 71.2 179.5 22.2 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.0559 0.0281 0.0135 0.0121 0.0148 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.08033 -0.03169 0.05778 -0.00104 -0.02959 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 93.5 94.1 95.4 14.6 18.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 29.52 7.29 -5.13 -2.78 30.92 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. ..$ max.log.posterior: num -104190
##   ..$ nfunc                             : num 2239
##   ..$ warnings                          : chr "Stupid local search strategy used: This is usually a sign of a ill-defined model and/or non-informative data."
##   ..$ opt.trace                         :List of 3
##   .. ..$ f    : Named num [1:355] 1316829 688145 688145 687788 119482 ...
##   .. .. ..- attr(*, "names")= chr [1:355] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ nfunc: Named int [1:355] 1 6 7 11 12 13 14 15 16 18 ...
##   .. .. ..- attr(*, "names")= chr [1:355] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ theta: num [1:355, 1:4] 3.03e-08 -8.25e-01 -8.25e-01 -8.25e-01 -8.25 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : chr [1:355] "iter1" "iter2" "iter3" "iter4" ...
##   .. .. .. ..$ : chr [1:4] "theta1" "theta2" "theta3" "theta4"
##   ..$ theta.mode                        : num [1:4] -4.75 1.74 2.84 -1.26
##   ..$ linkfunctions                     :List of 2
##   .. ..$ names: chr "identity"
##   .. ..$ link : int [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ family                            : int [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##  $ dic                        :List of 14
##   ..$ dic              : num 2e+05
##   ..$ p.eff            : num 6496
##   ..$ mean.deviance    : num 193837
##   ..$ deviance.mean    : num 187341
##   ..$ dic.sat          : num -168807
##   ..$ mean.deviance.sat: num -175303
##   ..$ deviance.mean.sat: num -197547
##   ..$ family.dic       : num 2e+05
##   ..$ family.dic.sat   : num -153059
##   ..$ family.p.eff     : num 6496
##   ..$ family           : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ local.dic        : num [1:25842] 7.37 6.99 7.35 6.81 7.06 ...
##   ..$ local.dic.sat    : num [1:25842] -37.215 0.655 -37.234 0.478 0.731 ...
##   ..$ local.p.eff      : num [1:25842] 0.263 0.285 0.38 0.232 0.327 ...
##  $ mode                       :List of 5
##   ..$ theta             : Named num [1:4] -4.75 1.74 2.84 -1.26
##   .. ..- attr(*, "names")= chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   ..$ x                 : num [1:137302] 93.6 94.1 95.5 14.4 18.3 ...
##   ..$ theta.tags        : chr [1:4] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field"
##   ..$ mode.status       : num 0
##   ..$ log.posterior.mode: num -104191
##  $ joint.hyper                :'data.frame': 16 obs. of  6 variables:
##   ..$ log precision for the student-t observations: num [1:16] -4.75 -4.75 -4.74 -4.71 -4.77 ...
##   ..$ dof_intern for student-t                    : num [1:16] 1.74 1.74 1.74 1.73 1.75 ...
##   ..$ Theta1 for field                            : num [1:16] 2.84 2.83 2.85 2.83 2.85 ...
##   ..$ Theta2 for field                            : num [1:16] -1.26 -1.27 -1.26 -1.28 -1.26 ...
##   ..$ Log posterior density                       : num [1:16] -104206 -104206 -104207 -104208 -104210 ...
##   ..$ Total integration weight (log.dens included): num [1:16] 0.1317 0.3491 0.1187 0.0571 0.0109 ...
##  $ nhyper                     : int 4
##  $ version                    :List of 2
##   ..$ inla.call: chr "GITCOMMIT [b51fb385728e90bce98ca92b1d8762a2d13f655c - Sat May 18 13:21:08 2024 +0300]"
##   ..$ R.INLA   : Named chr "24.05.18-2"
##   .. ..- attr(*, "names")= chr "version"
##  $ Q                          : NULL
##  $ graph                      : NULL
##  $ ok                         : logi TRUE
##  $ cpu.intern                 : chr [1:16] "Wall-clock time used on [/tmp/Rtmp2Fj70V/file296aaf6fc0a1fd/Model.ini]" "Preparations             :   0.170 seconds" "Approx inference (stage1): 662.738 seconds" "Approx inference (stage2):   0.002 seconds" ...
##  $ cpu.used                   : Named num [1:4] 0.684 669.009 7.031 676.724
##   ..- attr(*, "names")= chr [1:4] "Pre" "Running" "Post" "Total"
##  $ all.hyper                  :List of 4
##   ..$ predictor:List of 1
##   .. ..$ hyper:List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   ..$ family   :List of 1
##   .. ..$ :List of 4
##   .. .. ..$ hyperid: chr "INLA.Data1"
##   .. .. ..$ label  : chr "t"
##   .. .. ..$ hyper  :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "log precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 0
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log degrees of freedom"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "degrees of freedom for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "dof_intern for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "pc.dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 15 0.5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ link   :List of 1
##   .. .. .. ..$ hyper: list()
##   ..$ linear   :List of 2
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "Intercept"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "SpeedLimit"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   ..$ random   :List of 3
##   .. ..$ : NULL
##   .. ..$ : NULL
##   .. ..$ :List of 3
##   .. .. ..$ hyperid    : chr "field"
##   .. .. ..$ hyper      : NULL
##   .. .. ..$ group.hyper:List of 1
##   .. .. .. ..$ theta:List of 9
##   .. .. .. .. ..$ hyperid   : num 40001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name      : chr "logit correlation"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name: chr "rho"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial   : num 1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed     : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior     : chr "normal"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param     : num [1:2] 0 0.2
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta  :function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta:function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##  $ .args                      :List of 30
##   ..$ formula          :Class 'formula'  language BRU.response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   ..$ family           : chr "t"
##   ..$ data             :List of 21
##   .. ..$ BRU.response             : num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. ..$ BRU.E                    : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.Ntrials              : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.weights              : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.scale                : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.offset               : num [1:25842] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ Intercept                : num [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.group          : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.repl           : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit               : num [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit.group         : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit.repl          : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ field                    : int [1:55730] NA NA 1 2 3 4 5 6 7 8 ...
##   .. ..$ field.group              : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. ..$ field.repl               : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU_Intercept_main_model : chr "linear"
##   .. ..$ BRU_Intercept_values     : num 1
##   .. ..$ BRU_SpeedLimit_main_model: chr "linear"
##   .. ..$ BRU_SpeedLimit_values    : num 1
##   .. ..$ BRU_field_main_model     :List of 21
##   .. .. ..$ f                   :List of 3
##   .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. ..$ n       : int 13932
##   .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. ..$ m_alpha    : int 1
##   .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. ..$ doubles   :List of 4
##   .. .. .. .. .. .. ..$ matrices_less   : num [1:58136] 0.0534 0 0 0 0.0776 ...
##   .. .. .. .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
##   .. .. .. .. .. .. ..$ start.theta     : num [1:2] 0 1.35
##   .. .. .. .. .. .. ..$ nu              : num 0.5
##   .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. ..$ matrices  :List of 1
##   .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. ..$ nu                  : num 0.5
##   .. .. ..$ theta.prior.mean    : num [1:2] 0 1.35
##   .. .. ..$ prior.nu            :List of 4
##   .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. ..$ mean       : num 1
##   .. .. .. ..$ prec       : num 3
##   .. .. .. ..$ logscale   : num 1
##   .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. ..$ start.nu            : num 0.5
##   .. .. ..$ integer.nu          : logi TRUE
##   .. .. ..$ start.theta         : num [1:2] 0 1.35
##   .. .. ..$ stationary          : logi TRUE
##   .. .. ..$ rspde.order         : num 2
##   .. .. ..$ dim                 : num 1
##   .. .. ..$ est_nu              : logi FALSE
##   .. .. ..$ nu.upper.bound      : num 2
##   .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. ..$ debug               : logi FALSE
##   .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. ..$ fem_mesh            :List of 4
##   .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. ..$ parameterization    : chr "matern"
##   .. .. ..$ n.spde              : int 13932
##   .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. ..$ BRU_field_values         : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ quantiles        : num [1:3] 0.025 0.5 0.975
##   ..$ E                : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ offset           : num [1:25842] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ scale            : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ weights          : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ Ntrials          : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ verbose          : logi FALSE
##   ..$ control.compute  :List of 18
##   .. ..$ openmp.strategy           : chr "default"
##   .. ..$ hyperpar                  : logi TRUE
##   .. ..$ return.marginals          : logi TRUE
##   .. ..$ return.marginals.predictor: logi FALSE
##   .. ..$ dic                       : logi TRUE
##   .. ..$ mlik                      : logi TRUE
##   .. ..$ cpo                       : logi FALSE
##   .. ..$ po                        : logi FALSE
##   .. ..$ waic                      : logi TRUE
##   .. ..$ residuals                 : logi FALSE
##   .. ..$ q                         : logi FALSE
##   .. ..$ config                    : logi TRUE
##   .. ..$ likelihood.info           : logi FALSE
##   .. ..$ smtp                      : NULL
##   .. ..$ graph                     : logi FALSE
##   .. ..$ internal.opt              : NULL
##   .. ..$ save.memory               : NULL
##   .. ..$ control.gcpo              :List of 16
##   .. .. ..$ enable          : logi FALSE
##   .. .. ..$ num.level.sets  : num -1
##   .. .. ..$ size.max        : num 32
##   .. .. ..$ strategy        : chr [1:2] "posterior" "prior"
##   .. .. ..$ groups          : NULL
##   .. .. ..$ selection       : NULL
##   .. .. ..$ group.selection : NULL
##   .. .. ..$ friends         : NULL
##   .. .. ..$ weights         : NULL
##   .. .. ..$ verbose         : logi FALSE
##   .. .. ..$ epsilon         : num 0.005
##   .. .. ..$ prior.diagonal  : num 1e-04
##   .. .. ..$ correct.hyperpar: logi TRUE
##   .. .. ..$ keep            : NULL
##   .. .. ..$ remove          : NULL
##   .. .. ..$ remove.fixed    : logi TRUE
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_gcpo" "inla_ctrl_object"
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_compute" "inla_ctrl_object"
##   ..$ control.predictor:List of 12
##   .. ..$ hyper    :List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. ..$ fixed    : NULL
##   .. ..$ prior    : NULL
##   .. ..$ param    : NULL
##   .. ..$ initial  : NULL
##   .. ..$ compute  : logi TRUE
##   .. ..$ cdf      : NULL
##   .. ..$ quantiles: NULL
##   .. ..$ cross    : NULL
##   .. ..$ A        :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:103342] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:103342] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 25842 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:103342] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ precision: num 3269017
##   .. ..$ link     : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_predictor" "inla_ctrl_object"
##   ..$ control.family   :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ dummy            : num 0
##   .. .. ..$ hyper            :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "log precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 0
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log degrees of freedom"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "degrees of freedom for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "dof_intern for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "pc.dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 15 0.5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ initial          : NULL
##   .. .. ..$ prior            : NULL
##   .. .. ..$ param            : NULL
##   .. .. ..$ fixed            : NULL
##   .. .. ..$ link             : chr "default"
##   .. .. ..$ sn.shape.max     : num 5
##   .. .. ..$ gev.scale.xi     : num 0.1
##   .. .. ..$ control.bgev     : NULL
##   .. .. ..$ cenpoisson.I     : int [1:2] -1 -1
##   .. .. ..$ beta.censor.value: num 0
##   .. .. ..$ variant          : int 0
##   .. .. ..$ control.mix      : NULL
##   .. .. ..$ control.pom      : NULL
##   .. .. ..$ control.link     :List of 10
##   .. .. .. ..$ model   : chr "default"
##   .. .. .. ..$ order   : NULL
##   .. .. .. ..$ variant : NULL
##   .. .. .. ..$ hyper   : list()
##   .. .. .. ..$ quantile: NULL
##   .. .. .. ..$ a       : num 1
##   .. .. .. ..$ initial : NULL
##   .. .. .. ..$ fixed   : NULL
##   .. .. .. ..$ prior   : NULL
##   .. .. .. ..$ param   : NULL
##   .. .. .. ..- attr(*, "class")= chr [1:2] "ctrl_link" "inla_ctrl_object"
##   .. .. ..$ link.simple      : chr "default"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_family" "inla_ctrl_object"
##   ..$ control.inla     :List of 56
##   .. ..$ strategy                          : chr "auto"
##   .. ..$ int.strategy                      : chr "auto"
##   .. ..$ int.design                        : NULL
##   .. ..$ interpolator                      : chr "auto"
##   .. ..$ fast                              : logi TRUE
##   .. ..$ linear.correction                 : NULL
##   .. ..$ h                                 : num 0.005
##   .. ..$ dz                                : num 0.75
##   .. ..$ diff.logdens                      : num 6
##   .. ..$ print.joint.hyper                 : logi TRUE
##   .. ..$ force.diagonal                    : logi FALSE
##   .. ..$ skip.configurations               : logi TRUE
##   .. ..$ mode.known                        : logi FALSE
##   .. ..$ adjust.weights                    : logi TRUE
##   .. ..$ tolerance                         : num 0.005
##   .. ..$ tolerance.f                       : NULL
##   .. ..$ tolerance.g                       : NULL
##   .. ..$ tolerance.x                       : NULL
##   .. ..$ tolerance.step                    : NULL
##   .. ..$ restart                           : int 0
##   .. ..$ optimiser                         : chr "default"
##   .. ..$ verbose                           : NULL
##   .. ..$ reordering                        : chr "auto"
##   .. ..$ cpo.diff                          : NULL
##   .. ..$ npoints                           : num 9
##   .. ..$ cutoff                            : num 1e-04
##   .. ..$ adapt.hessian.mode                : NULL
##   .. ..$ adapt.hessian.max.trials          : NULL
##   .. ..$ adapt.hessian.scale               : NULL
##   .. ..$ adaptive.max                      : int 25
##   .. ..$ huge                              : logi FALSE
##   .. ..$ step.len                          : num 0
##   .. ..$ stencil                           : int 5
##   .. ..$ lincomb.derived.correlation.matrix: logi FALSE
##   .. ..$ diagonal                          : num 0
##   .. ..$ numint.maxfeval                   : num 1e+05
##   .. ..$ numint.relerr                     : num 1e-05
##   .. ..$ numint.abserr                     : num 1e-06
##   .. ..$ cmin                              : num -Inf
##   .. ..$ b.strategy                        : chr "keep"
##   .. ..$ step.factor                       : num -0.1
##   .. ..$ global.node.factor                : num 2
##   .. ..$ global.node.degree                : int 2147483647
##   .. ..$ stupid.search                     : logi TRUE
##   .. ..$ stupid.search.max.iter            : int 1000
##   .. ..$ stupid.search.factor              : num 1.05
##   .. ..$ control.vb                        :List of 8
##   .. .. ..$ enable          : chr "auto"
##   .. .. ..$ strategy        : chr [1:2] "mean" "variance"
##   .. .. ..$ verbose         : logi TRUE
##   .. .. ..$ iter.max        : num 25
##   .. .. ..$ emergency       : num 25
##   .. .. ..$ f.enable.limit  : num [1:4] 30 25 1024 768
##   .. .. ..$ hessian.update  : num 2
##   .. .. ..$ hessian.strategy: chr [1:4] "default" "full" "partial" "diagonal"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_vb" "inla_ctrl_object"
##   .. ..$ num.gradient                      : chr "central"
##   .. ..$ num.hessian                       : chr "central"
##   .. ..$ optimise.strategy                 : chr "smart"
##   .. ..$ use.directions                    : logi TRUE
##   .. ..$ constr.marginal.diagonal          : num 1.49e-08
##   .. ..$ improved.simplified.laplace       : logi FALSE
##   .. ..$ parallel.linesearch               : logi FALSE
##   .. ..$ compute.initial.values            : logi TRUE
##   .. ..$ hessian.correct.skewness.only     : logi TRUE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_inla" "inla_ctrl_object"
##   ..$ control.fixed    :List of 10
##   .. ..$ cdf                   : NULL
##   .. ..$ quantiles             : NULL
##   .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ mean                  : num 0
##   .. ..$ mean.intercept        : num 0
##   .. ..$ prec                  : num 0.001
##   .. ..$ prec.intercept        : num 0
##   .. ..$ compute               : logi TRUE
##   .. ..$ correlation.matrix    : logi FALSE
##   .. ..$ remove.names          : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_fixed" "inla_ctrl_object"
##   ..$ control.mode     :List of 5
##   .. ..$ result : NULL
##   .. ..$ theta  : NULL
##   .. ..$ x      : NULL
##   .. ..$ restart: logi FALSE
##   .. ..$ fixed  : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_mode" "inla_ctrl_object"
##   ..$ control.expert   :List of 6
##   .. ..$ cpo.manual            : logi FALSE
##   .. ..$ cpo.idx               : num -1
##   .. ..$ disable.gaussian.check: logi FALSE
##   .. ..$ jp                    : NULL
##   .. ..$ dot.product.gain      : logi FALSE
##   .. ..$ globalconstr          :List of 2
##   .. .. ..$ A: NULL
##   .. .. ..$ e: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_expert" "inla_ctrl_object"
##   ..$ control.lincomb  :List of 1
##   .. ..$ verbose: logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lincomb" "inla_ctrl_object"
##   ..$ control.update   :List of 1
##   .. ..$ result: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_update" "inla_ctrl_object"
##   ..$ control.lp.scale :List of 1
##   .. ..$ hyper:List of 100
##   .. .. ..$ theta1  :List of 11
##   .. .. .. ..$ hyperid           : num 103001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta2  :List of 11
##   .. .. .. ..$ hyperid           : num 103002
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta3  :List of 11
##   .. .. .. ..$ hyperid           : num 103003
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta4  :List of 11
##   .. .. .. ..$ hyperid           : num 103004
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta5  :List of 11
##   .. .. .. ..$ hyperid           : num 103005
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta6  :List of 11
##   .. .. .. ..$ hyperid           : num 103006
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta7  :List of 11
##   .. .. .. ..$ hyperid           : num 103007
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta8  :List of 11
##   .. .. .. ..$ hyperid           : num 103008
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta9  :List of 11
##   .. .. .. ..$ hyperid           : num 103009
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta10 :List of 11
##   .. .. .. ..$ hyperid           : num 103010
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta11 :List of 11
##   .. .. .. ..$ hyperid           : num 103011
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta12 :List of 11
##   .. .. .. ..$ hyperid           : num 103012
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta13 :List of 11
##   .. .. .. ..$ hyperid           : num 103013
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta14 :List of 11
##   .. .. .. ..$ hyperid           : num 103014
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta15 :List of 11
##   .. .. .. ..$ hyperid           : num 103015
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta16 :List of 11
##   .. .. .. ..$ hyperid           : num 103016
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta17 :List of 11
##   .. .. .. ..$ hyperid           : num 103017
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta18 :List of 11
##   .. .. .. ..$ hyperid           : num 103018
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta19 :List of 11
##   .. .. .. ..$ hyperid           : num 103019
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta20 :List of 11
##   .. .. .. ..$ hyperid           : num 103020
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta21 :List of 11
##   .. .. .. ..$ hyperid           : num 103021
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta22 :List of 11
##   .. .. .. ..$ hyperid           : num 103022
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta23 :List of 11
##   .. .. .. ..$ hyperid           : num 103023
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta24 :List of 11
##   .. .. .. ..$ hyperid           : num 103024
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta25 :List of 11
##   .. .. .. ..$ hyperid           : num 103025
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta26 :List of 11
##   .. .. .. ..$ hyperid           : num 103026
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta27 :List of 11
##   .. .. .. ..$ hyperid           : num 103027
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta28 :List of 11
##   .. .. .. ..$ hyperid           : num 103028
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta29 :List of 11
##   .. .. .. ..$ hyperid           : num 103029
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta30 :List of 11
##   .. .. .. ..$ hyperid           : num 103030
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta31 :List of 11
##   .. .. .. ..$ hyperid           : num 103031
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta32 :List of 11
##   .. .. .. ..$ hyperid           : num 103032
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta33 :List of 11
##   .. .. .. ..$ hyperid           : num 103033
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta34 :List of 11
##   .. .. .. ..$ hyperid           : num 103034
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta35 :List of 11
##   .. .. .. ..$ hyperid           : num 103035
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta36 :List of 11
##   .. .. .. ..$ hyperid           : num 103036
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta37 :List of 11
##   .. .. .. ..$ hyperid           : num 103037
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta38 :List of 11
##   .. .. .. ..$ hyperid           : num 103038
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta39 :List of 11
##   .. .. .. ..$ hyperid           : num 103039
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta40 :List of 11
##   .. .. .. ..$ hyperid           : num 103040
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta41 :List of 11
##   .. .. .. ..$ hyperid           : num 103041
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta42 :List of 11
##   .. .. .. ..$ hyperid           : num 103042
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta43 :List of 11
##   .. .. .. ..$ hyperid           : num 103043
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta44 :List of 11
##   .. .. .. ..$ hyperid           : num 103044
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta45 :List of 11
##   .. .. .. ..$ hyperid           : num 103045
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta46 :List of 11
##   .. .. .. ..$ hyperid           : num 103046
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta47 :List of 11
##   .. .. .. ..$ hyperid           : num 103047
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta48 :List of 11
##   .. .. .. ..$ hyperid           : num 103048
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta49 :List of 11
##   .. .. .. ..$ hyperid           : num 103049
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta50 :List of 11
##   .. .. .. ..$ hyperid           : num 103050
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta51 :List of 11
##   .. .. .. ..$ hyperid           : num 103051
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta52 :List of 11
##   .. .. .. ..$ hyperid           : num 103052
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta53 :List of 11
##   .. .. .. ..$ hyperid           : num 103053
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta54 :List of 11
##   .. .. .. ..$ hyperid           : num 103054
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta55 :List of 11
##   .. .. .. ..$ hyperid           : num 103055
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta56 :List of 11
##   .. .. .. ..$ hyperid           : num 103056
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta57 :List of 11
##   .. .. .. ..$ hyperid           : num 103057
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta58 :List of 11
##   .. .. .. ..$ hyperid           : num 103058
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta59 :List of 11
##   .. .. .. ..$ hyperid           : num 103059
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta60 :List of 11
##   .. .. .. ..$ hyperid           : num 103060
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta61 :List of 11
##   .. .. .. ..$ hyperid           : num 103061
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta62 :List of 11
##   .. .. .. ..$ hyperid           : num 103062
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta63 :List of 11
##   .. .. .. ..$ hyperid           : num 103063
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta64 :List of 11
##   .. .. .. ..$ hyperid           : num 103064
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta65 :List of 11
##   .. .. .. ..$ hyperid           : num 103065
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta66 :List of 11
##   .. .. .. ..$ hyperid           : num 103066
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta67 :List of 11
##   .. .. .. ..$ hyperid           : num 103067
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta68 :List of 11
##   .. .. .. ..$ hyperid           : num 103068
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta69 :List of 11
##   .. .. .. ..$ hyperid           : num 103069
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta70 :List of 11
##   .. .. .. ..$ hyperid           : num 103070
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta71 :List of 11
##   .. .. .. ..$ hyperid           : num 103071
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta72 :List of 11
##   .. .. .. ..$ hyperid           : num 103072
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta73 :List of 11
##   .. .. .. ..$ hyperid           : num 103073
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta74 :List of 11
##   .. .. .. ..$ hyperid           : num 103074
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta75 :List of 11
##   .. .. .. ..$ hyperid           : num 103075
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta76 :List of 11
##   .. .. .. ..$ hyperid           : num 103076
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta77 :List of 11
##   .. .. .. ..$ hyperid           : num 103077
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta78 :List of 11
##   .. .. .. ..$ hyperid           : num 103078
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta79 :List of 11
##   .. .. .. ..$ hyperid           : num 103079
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta80 :List of 11
##   .. .. .. ..$ hyperid           : num 103080
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta81 :List of 11
##   .. .. .. ..$ hyperid           : num 103081
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta82 :List of 11
##   .. .. .. ..$ hyperid           : num 103082
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta83 :List of 11
##   .. .. .. ..$ hyperid           : num 103083
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta84 :List of 11
##   .. .. .. ..$ hyperid           : num 103084
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta85 :List of 11
##   .. .. .. ..$ hyperid           : num 103085
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta86 :List of 11
##   .. .. .. ..$ hyperid           : num 103086
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta87 :List of 11
##   .. .. .. ..$ hyperid           : num 103087
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta88 :List of 11
##   .. .. .. ..$ hyperid           : num 103088
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta89 :List of 11
##   .. .. .. ..$ hyperid           : num 103089
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta90 :List of 11
##   .. .. .. ..$ hyperid           : num 103090
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta91 :List of 11
##   .. .. .. ..$ hyperid           : num 103091
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta92 :List of 11
##   .. .. .. ..$ hyperid           : num 103092
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta93 :List of 11
##   .. .. .. ..$ hyperid           : num 103093
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta94 :List of 11
##   .. .. .. ..$ hyperid           : num 103094
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta95 :List of 11
##   .. .. .. ..$ hyperid           : num 103095
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta96 :List of 11
##   .. .. .. ..$ hyperid           : num 103096
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta97 :List of 11
##   .. .. .. ..$ hyperid           : num 103097
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta98 :List of 11
##   .. .. .. ..$ hyperid           : num 103098
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta99 :List of 11
##   .. .. .. ..$ hyperid           : num 103099
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. [list output truncated]
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lp_scale" "inla_ctrl_object"
##   ..$ control.pardiso  :List of 4
##   .. ..$ verbose            : logi FALSE
##   .. ..$ debug              : logi FALSE
##   .. ..$ parallel.reordering: logi TRUE
##   .. ..$ nrhs               : num -1
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_pardiso" "inla_ctrl_object"
##   ..$ only.hyperparam  : logi FALSE
##   ..$ inla.call        : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/inla.mkl.run"
##   ..$ num.threads      : chr "24:1"
##   ..$ keep             : logi FALSE
##   ..$ silent           : logi TRUE
##   ..$ inla.mode        : chr "compact"
##   ..$ safe             : logi TRUE
##   ..$ debug            : logi FALSE
##   ..$ .parent.frame    :<environment: R_GlobalEnv> 
##  $ call                       : chr [1:14] "inla.core(formula = formula, family = family, contrasts = contrasts, " "    data = data, quantiles = quantiles, E = E, offset = offset, " "    scale = scale, weights = weights, Ntrials = Ntrials, strata = strata, " "    lp.scale = lp.scale, link.covariates = link.covariates, verbose = verbose, " ...
##  $ model.matrix               :Formal class 'dsparseModelMatrix' [package "MatrixModels"] with 8 slots
##   .. ..@ i        : int(0) 
##   .. ..@ p        : int 0
##   .. ..@ Dim      : int [1:2] 55730 0
##   .. ..@ Dimnames :List of 2
##   .. .. ..$ : chr [1:55730] "1" "2" "3" "4" ...
##   .. .. ..$ : NULL
##   .. ..@ x        : num(0) 
##   .. ..@ factors  : list()
##   .. ..@ assign   : int(0) 
##   .. ..@ contrasts: Named list()
##  $ bru_iinla                  :List of 5
##   ..$ log       :Class 'bru_log'  hidden list of 2
##   .. ..$ log      : chr [1:7] "2024-05-21 18:20:47.884695: iinla: Evaluate component inputs" "2024-05-21 18:20:47.99137: iinla: Evaluate component linearisations" "2024-05-21 18:20:57.482565: iinla: Evaluate component simplifications" "2024-05-21 18:21:06.539718: iinla: Evaluate predictor linearisation" ...
##   .. ..$ bookmarks: Named int 0
##   .. .. ..- attr(*, "names")= chr "iinla"
##   ..$ states    :List of 1
##   .. ..$ :List of 3
##   .. .. ..$ Intercept : num 0
##   .. .. ..$ SpeedLimit: num 0
##   .. .. ..$ field     : num [1:55728] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ inla_stack:List of 3
##   .. ..$ A      :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:103342] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ p       : int [1:55731] 0 25842 51684 51684 51684 51686 51686 51694 51700 51700 ...
##   .. .. .. ..@ Dim     : int [1:2] 25842 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:103342] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ data   :List of 5
##   .. .. ..$ data :'data.frame':  25842 obs. of  6 variables:
##   .. .. .. ..$ BRU.response: num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. .. .. ..$ BRU.E       : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.Ntrials : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.weights : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.scale   : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.offset  : num [1:25842] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. ..$ nrow : int 25842
##   .. .. ..$ ncol : Named int [1:6] 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:6] "BRU.response" "BRU.E" "BRU.Ntrials" "BRU.weights" ...
##   .. .. ..$ names:List of 6
##   .. .. .. ..$ BRU.response: chr "BRU.response"
##   .. .. .. ..$ BRU.E       : chr "BRU.E"
##   .. .. .. ..$ BRU.Ntrials : chr "BRU.Ntrials"
##   .. .. .. ..$ BRU.weights : chr "BRU.weights"
##   .. .. .. ..$ BRU.scale   : chr "BRU.scale"
##   .. .. .. ..$ BRU.offset  : chr "BRU.offset"
##   .. .. ..$ index:List of 1
##   .. .. .. ..$ : num [1:25842] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..$ effects:List of 5
##   .. .. ..$ data :'data.frame':  55730 obs. of  9 variables:
##   .. .. .. ..$ Intercept       : num [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.group : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.repl  : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit      : num [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit.group: int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit.repl : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ field           : int [1:55730] NA NA 1 2 3 4 5 6 7 8 ...
##   .. .. .. ..$ field.group     : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ field.repl      : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. .. ..$ nrow : int 55730
##   .. .. ..$ ncol : Named int [1:9] 1 1 1 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:9] "Intercept" "Intercept.group" "Intercept.repl" "SpeedLimit" ...
##   .. .. ..$ names:List of 9
##   .. .. .. ..$ Intercept       : chr "Intercept"
##   .. .. .. ..$ Intercept.group : chr "Intercept.group"
##   .. .. .. ..$ Intercept.repl  : chr "Intercept.repl"
##   .. .. .. ..$ SpeedLimit      : chr "SpeedLimit"
##   .. .. .. ..$ SpeedLimit.group: chr "SpeedLimit.group"
##   .. .. .. ..$ SpeedLimit.repl : chr "SpeedLimit.repl"
##   .. .. .. ..$ field           : chr "field"
##   .. .. .. ..$ field.group     : chr "field.group"
##   .. .. .. ..$ field.repl      : chr "field.repl"
##   .. .. ..$ index:List of 3
##   .. .. .. ..$ : int 1
##   .. .. .. ..$ : int 2
##   .. .. .. ..$ : int [1:55728] 3 4 5 6 7 8 9 10 11 12 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..- attr(*, "class")= chr "inla.data.stack"
##   ..$ track     :'data.frame':   111465 obs. of  6 variables:
##   .. ..$ effect           : chr [1:111465] "Intercept" "SpeedLimit" "field" "field" ...
##   .. ..$ index            : num [1:111465] 1 1 1 2 3 4 5 6 7 8 ...
##   .. ..$ iteration        : num [1:111465] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ mode             : num [1:111465] NA NA NA NA NA NA NA NA NA NA ...
##   .. ..$ sd               : num [1:111465] NA NA NA NA NA NA NA NA NA NA ...
##   .. ..$ new_linearisation: num [1:111465] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ timings   :'data.frame':   2 obs. of  5 variables:
##   .. ..$ Task     : chr [1:2] "Preprocess" "Run inla()"
##   .. ..$ Iteration: num [1:2] 1 1
##   .. ..$ Time     : 'difftime' num [1:2] 107.572 2032.984
##   .. .. ..- attr(*, "units")= chr "secs"
##   .. ..$ System   : 'difftime' num [1:2] 1.384 0.383999999999999
##   .. .. ..- attr(*, "units")= chr "secs"
##   .. ..$ Elapsed  : 'difftime' num [1:2] 108.023 676.882
##   .. .. ..- attr(*, "units")= chr "secs"
##  $ bru_timings                :'data.frame': 3 obs. of  5 variables:
##   ..$ Task     : chr [1:3] "Preprocess" "Preprocess" "Run inla()"
##   ..$ Iteration: num [1:3] 0 1 1
##   ..$ Time     : 'difftime' num [1:3] 0.131 107.572 2032.984
##   .. ..- attr(*, "units")= chr "secs"
##   ..$ System   : 'difftime' num [1:3] 0 1.384 0.383999999999999
##   .. ..- attr(*, "units")= chr "secs"
##   ..$ Elapsed  : 'difftime' num [1:3] 0.13300000000001 108.023 676.882
##   .. ..- attr(*, "units")= chr "secs"
##  $ bru_info                   :List of 6
##   ..$ method         : chr "bru"
##   ..$ model          :List of 2
##   .. ..$ effects:List of 3
##   .. .. ..$ Intercept :List of 12
##   .. .. .. ..$ label       : chr "Intercept"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : num 1
##   .. .. .. .. .. ..$ label   : chr "Intercept"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x564425d56948> 
##   .. .. .. ..$ fcall       : language "f"(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ SpeedLimit:List of 12
##   .. .. .. ..$ label       : chr "SpeedLimit"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1,      values = BRU_SpeedLimit_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol SpeedLimit
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x5644258d5e30> 
##   .. .. .. ..$ fcall       : language "f"(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1,      values = BRU_SpeedLimit_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ field     :List of 12
##   .. .. .. ..$ label       : chr "field"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol loc
##   .. .. .. .. .. ..$ label   : chr "field"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ model:List of 21
##   .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. ..$ n       : int 13932
##   .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. ..$ m_alpha    : int 1
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ matrices_less   : num [1:58136] 0.0534 0 0 0 0.0776 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. .. ..$ start.theta     : num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. .. ..$ nu              : num 0.5
##   .. .. .. .. .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 1
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. .. .. .. .. ..$ nu                  : num 0.5
##   .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 1.35
##   .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. .. .. .. .. ..$ mean       : num 1
##   .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. .. .. .. .. ..$ start.nu            : num 0.5
##   .. .. .. .. .. .. ..$ integer.nu          : logi TRUE
##   .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 1.35
##   .. .. .. .. .. .. ..$ stationary          : logi TRUE
##   .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. ..$ est_nu              : logi FALSE
##   .. .. .. .. .. .. ..$ nu.upper.bound      : num 2
##   .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. ..$ fem_mesh            :List of 4
##   .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. ..$ n.spde              : int 13932
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. ..$ model         :List of 21
##   .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. ..$ n       : int 13932
##   .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. ..$ m_alpha    : int 1
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. ..$ doubles   :List of 4
##   .. .. .. .. .. .. .. .. .. ..$ matrices_less   : num [1:58136] 0.0534 0 0 0 0.0776 ...
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. ..$ start.theta     : num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. ..$ nu              : num 0.5
##   .. .. .. .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. ..$ matrices  :List of 1
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. .. .. .. ..$ nu                  : num 0.5
##   .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 1.35
##   .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. .. .. .. ..$ mean       : num 1
##   .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. .. .. .. ..$ start.nu            : num 0.5
##   .. .. .. .. .. ..$ integer.nu          : logi TRUE
##   .. .. .. .. .. ..$ start.theta         : num [1:2] 0 1.35
##   .. .. .. .. .. ..$ stationary          : logi TRUE
##   .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. ..$ est_nu              : logi FALSE
##   .. .. .. .. .. ..$ nu.upper.bound      : num 2
##   .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. ..$ fem_mesh            :List of 4
##   .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. ..$ n.spde              : int 13932
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. ..$ type          : chr "cgeneric"
##   .. .. .. .. ..$ n             : num 13932
##   .. .. .. .. ..$ values        : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "field.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : language data_rspde_bru_stat[["repl"]]
##   .. .. .. .. .. ..$ label   : chr "field.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 4
##   .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : int 4
##   .. .. .. .. ..$ values        : int [1:4] 1 2 3 4
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x564440c42268> 
##   .. .. .. ..$ fcall       : language "f"(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     :List of 1
##   .. .. .. .. .. .. .. .. ..$ model:List of 21
##   .. .. .. .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. .. .. .. ..$ n       : int 13932
##   .. .. .. .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ m_alpha    : int 1
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 4
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices_less   : num [1:58136] 0.0534 0 0 0 0.0776 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ start.theta     : num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ nu              : num 0.5
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_int_model"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 1
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. .. .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. .. .. .. .. .. .. .. ..$ nu                  : num 0.5
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. .. .. .. .. .. .. .. ..$ mean       : num 1
##   .. .. .. .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.5
##   .. .. .. .. .. .. .. .. .. ..$ integer.nu          : logi TRUE
##   .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 1.35
##   .. .. .. .. .. .. .. .. .. ..$ stationary          : logi TRUE
##   .. .. .. .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. .. .. .. ..$ est_nu              : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 2
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. .. .. .. ..$ fem_mesh            :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. .. .. .. ..$ n.spde              : int 13932
##   .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 4
##   .. .. .. .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 13932
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 13932
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 55728
##   .. .. .. .. .. .. ..$ n_inla           : num 55728
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 55728 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 55728
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..- attr(*, "class")= chr [1:2] "component_list" "list"
##   .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..$ formula:Class 'formula'  language BRU_response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..- attr(*, "class")= chr [1:2] "bru_model" "list"
##   ..$ lhoods         :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ family        : chr "T"
##   .. .. ..$ formula       :Class 'formula'  language speed ~ .
##   .. .. .. .. ..- attr(*, ".Environment")=<environment: 0x56444306fdb0> 
##   .. .. ..$ response_data :List of 4
##   .. .. .. ..$ BRU_response: num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. .. .. ..$ BRU_E       : num 1
##   .. .. .. ..$ BRU_Ntrials : num 1
##   .. .. .. ..$ BRU_scale   : num 1
##   .. .. ..$ data          :List of 8
##   .. .. .. ..$ speed            : num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. .. .. ..$ SpeedLimit       : num [1:25842] 4.09 4.09 4.09 -1.04 -1.04 ...
##   .. .. .. ..$ .coord_x         : num [1:25842] -122 -122 -122 -122 -122 ...
##   .. .. .. ..$ .coord_y         : num [1:25842] 37.7 37.7 37.7 37.8 37.8 ...
##   .. .. .. ..$ .edge_number     : num [1:25842] 2 2 2 3 3 3 5 6 6 6 ...
##   .. .. .. ..$ .distance_on_edge: num [1:25842] 0.195 0.227 0.363 0.309 0.583 ...
##   .. .. .. ..$ .group           : chr [1:25842] "1" "1" "1" "1" ...
##   .. .. .. ..$ loc              : num [1:25842, 1:2] 2 2 2 3 3 3 5 6 6 6 ...
##   .. .. .. ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##   .. .. ..$ E             : num 1
##   .. .. ..$ Ntrials       : num 1
##   .. .. ..$ weights       : num 1
##   .. .. ..$ scale         : num 1
##   .. .. ..$ samplers      : NULL
##   .. .. ..$ linear        : logi TRUE
##   .. .. ..$ expr          : NULL
##   .. .. ..$ response      : chr "BRU_response"
##   .. .. ..$ inla.family   : chr "T"
##   .. .. ..$ domain        : NULL
##   .. .. ..$ used          :List of 2
##   .. .. .. ..$ effect: chr [1:3] "Intercept" "SpeedLimit" "field"
##   .. .. .. ..$ latent: chr(0) 
##   .. .. .. ..- attr(*, "class")= chr "bru_used"
##   .. .. ..$ allow_combine : logi TRUE
##   .. .. ..$ control.family: NULL
##   .. .. ..- attr(*, "class")= chr [1:2] "bru_like" "list"
##   .. ..- attr(*, "class")= chr [1:2] "bru_like_list" "list"
##   ..$ options        :List of 14
##   .. ..$ bru_verbose      : num 0
##   .. ..$ bru_verbose_store: num Inf
##   .. ..$ bru_max_iter     : num 1
##   .. ..$ bru_run          : logi TRUE
##   .. ..$ bru_int_args     :List of 3
##   .. .. ..$ method: chr "stable"
##   .. .. ..$ nsub1 : num 30
##   .. .. ..$ nsub2 : num 9
##   .. ..$ bru_method       :List of 6
##   .. .. ..$ taylor         : chr "pandemic"
##   .. .. ..$ search         : chr "all"
##   .. .. ..$ factor         : num 1.62
##   .. .. ..$ rel_tol        : num 0.1
##   .. .. ..$ max_step       : num 2
##   .. .. ..$ line_opt_method: chr "onestep"
##   .. ..$ bru_compress_cp  : logi TRUE
##   .. ..$ bru_debug        : logi FALSE
##   .. ..$ E                : num 1
##   .. ..$ Ntrials          : num 1
##   .. ..$ control.compute  :List of 3
##   .. .. ..$ config: logi TRUE
##   .. .. ..$ dic   : logi TRUE
##   .. .. ..$ waic  : logi TRUE
##   .. ..$ control.inla     :List of 1
##   .. .. ..$ int.strategy: chr "auto"
##   .. ..$ control.fixed    :List of 1
##   .. .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ verbose          : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "bru_options" "list"
##   ..$ inlabru_version: Named chr "2.10.1.9007"
##   .. ..- attr(*, "names")= chr "version"
##   ..$ INLA_version   : Named chr "24.05.18-2"
##   .. ..- attr(*, "names")= chr "version"
##   ..- attr(*, "class")= chr [1:2] "bru_info" "list"
##  - attr(*, "class")= chr [1:3] "bru" "iinla" "inla"
stat.time.fin <- Sys.time()
print(stat.time.fin - stat.time.ini)
## Time difference of 13.36144 mins
summary(rspde_fit_stat)
## inlabru version: 2.10.1.9007
## INLA version: 24.05.18-2
## Components:
## Intercept: main = linear(1), group = exchangeable(1L), replicate = iid(1L)
## SpeedLimit: main = linear(SpeedLimit), group = exchangeable(1L), replicate = iid(1L)
## field: main = cgeneric(loc), group = exchangeable(1L), replicate = iid(data_rspde_bru_stat[["repl"]])
## Likelihoods:
##   Family: 'T'
##     Data class: 'metric_graph_data', 'list'
##     Predictor: speed ~ .
## Time used:
##     Pre = 0.684, Running = 669, Post = 7.03, Total = 677 
## Fixed effects:
##              mean    sd 0.025quant 0.5quant 0.975quant   mode kld
## Intercept  29.550 0.280     29.002   29.550     30.098 29.550   0
## SpeedLimit  7.246 0.184      6.884    7.246      7.606  7.246   0
## 
## Random effects:
##   Name     Model
##     field CGeneric
## 
## Model hyperparameters:
##                                            mean    sd 0.025quant 0.5quant
## precision for the student-t observations  0.009 0.000      0.009    0.009
## degrees of freedom for student-t          7.788 0.170      7.507    7.777
## Theta1 for field                          2.827 0.020      2.782    2.829
## Theta2 for field                         -1.231 0.043     -1.297   -1.236
##                                          0.975quant   mode
## precision for the student-t observations      0.009  0.009
## degrees of freedom for student-t              8.172  7.704
## Theta1 for field                              2.858  2.840
## Theta2 for field                             -1.132 -1.263
## 
## Deviance Information Criterion (DIC) ...............: 2e+05
## Deviance Information Criterion (DIC, saturated) ....: -168807.49
## Effective number of parameters .....................: 6495.52
## 
## Watanabe-Akaike information criterion (WAIC) ...: 200656.41
## Effective number of parameters .................: 5858.98
## 
## Marginal log-Likelihood:  -104203.12 
##  is computed 
## Posterior summaries for the linear predictor and the fitted values are computed
## (Posterior marginals needs also 'control.compute=list(return.marginals.predictor=TRUE)')
fit.rspde = rspde.result(rspde_fit_stat, "field", rspde_model_stat)
summary(fit.rspde)
##              mean        sd 0.025quant  0.5quant 0.975quant      mode
## std.dev 16.898800 0.3267790  16.167000 16.941700  17.414300 17.116700
## range    0.292308 0.0127092   0.273607  0.290192   0.322002  0.282767

1.2 Nonstationary model

  • Observe that we are using the computed parameters from the stationary model as initial values for the nonstationary models.
nonstat.time.ini <- Sys.time()
################################################################################
############################# NON STATIONARY MODEL #############################
################################################################################

B.sigma = cbind(0, 1, 0, mesh$SpeedLimit, 0)
B.range = cbind(0, 0, 1, 0, mesh$SpeedLimit)
init.vec.theta = c(fit.rspde$summary.log.std.dev$mode, 
                   fit.rspde$summary.log.range$mode, 
                   rep(0, (ncol(B.sigma)-3)))

rspde_model_nonstat <- rspde.metric_graph(sf_graph,
                                          start.theta = init.vec.theta,
                                          theta.prior.mean = init.vec.theta,
                                          B.sigma = B.sigma,
                                          B.range = B.range,
                                          parameterization = "matern",
                                          nu = 0.5)
str(rspde_model_nonstat)
## List of 21
##  $ f                   :List of 3
##   ..$ model   : chr "cgeneric"
##   ..$ n       : int 13932
##   ..$ cgeneric:List of 5
##   .. ..$ model: chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. ..$ n    : int 13932
##   .. ..$ debug: logi FALSE
##   .. ..$ data :List of 5
##   .. .. ..$ ints      :List of 5
##   .. .. .. ..$ n          : int 13932
##   .. .. .. ..$ debug      : int 0
##   .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. ..$ alpha      : int 1
##   .. .. ..$ doubles   :List of 2
##   .. .. .. ..$ start.theta     : num [1:4] 2.84 -1.26 0 0
##   .. .. .. ..$ theta.prior.mean: num [1:4] 2.84 -1.26 0 0
##   .. .. ..$ characters:List of 3
##   .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. ..$ matrices  :List of 3
##   .. .. .. ..$ B_tau           : num [1:69662] 13932 5 -0.693 -1 0.5 ...
##   .. .. .. ..$ B_kappa         : num [1:69662] 13932 5 0.693 0 -1 ...
##   .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. ..$ smatrices :List of 2
##   .. .. .. ..$ C: num [1:41799] 13932 13932 13932 0 1 ...
##   .. .. .. ..$ G: num [1:132615] 13932 13932 44204 0 5681 ...
##   .. ..- attr(*, "class")= chr "inla.cgeneric"
##  $ cgeneric_type       : chr "int_alpha"
##  $ nu                  : num 0.5
##  $ theta.prior.mean    : num [1:4] 2.84 -1.26 0 0
##  $ prior.nu            :List of 4
##   ..$ loglocation: num -5e-06
##   ..$ mean       : num 1
##   ..$ prec       : num 3
##   ..$ logscale   : num 1
##  $ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##  $ start.nu            : num 0.5
##  $ integer.nu          : logi TRUE
##  $ start.theta         : num [1:4] 2.84 -1.26 0 0
##  $ stationary          : logi FALSE
##  $ rspde.order         : num 2
##  $ dim                 : num 1
##  $ est_nu              : logi FALSE
##  $ nu.upper.bound      : num 2
##  $ prior.nu.dist       : chr "lognormal"
##  $ debug               : logi FALSE
##  $ type.rational.approx: chr "chebfun"
##  $ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##  $ fem_mesh            :List of 4
##   ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. ..@ factors : list()
##   ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. ..@ factors : list()
##   ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. ..@ factors : list()
##   ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. ..@ factors : list()
##  $ parameterization    : chr "matern"
##  $ n.spde              : int 13932
##  - attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
data_rspde_bru_nonstat <- graph_data_rspde(rspde_model_nonstat,
                                           repl = ".all",
                                           loc_name = "loc")
str(data_rspde_bru_nonstat)
## List of 4
##  $ data :List of 8
##   ..$ speed            : num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   ..$ SpeedLimit       : num [1:25842] 4.09 4.09 4.09 -1.04 -1.04 ...
##   ..$ .coord_x         : num [1:25842] -122 -122 -122 -122 -122 ...
##   ..$ .coord_y         : num [1:25842] 37.7 37.7 37.7 37.8 37.8 ...
##   ..$ .edge_number     : num [1:25842] 2 2 2 3 3 3 5 6 6 6 ...
##   ..$ .distance_on_edge: num [1:25842] 0.195 0.227 0.363 0.309 0.583 ...
##   ..$ .group           : chr [1:25842] "1" "1" "1" "1" ...
##   ..$ loc              : num [1:25842, 1:2] 2 2 2 3 3 3 5 6 6 6 ...
##   ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##  $ index:List of 3
##   ..$ field      : int [1:55728] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ field.group: int [1:55728] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ field.repl : int [1:55728] 1 1 1 1 1 1 1 1 1 1 ...
##   ..- attr(*, "class")= chr [1:2] "inla_rspde_index" "list"
##   ..- attr(*, "rspde.order")= num 0
##   ..- attr(*, "integer_nu")= logi TRUE
##   ..- attr(*, "n.mesh")= int 13932
##   ..- attr(*, "name")= chr "field"
##   ..- attr(*, "n.group")= int 1
##   ..- attr(*, "n.repl")= int 4
##  $ repl : chr [1:25842] "1" "1" "1" "1" ...
##  $ basis:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. ..@ i       : int [1:51684] 0 1 3 8 9 10 11 12 13 14 ...
##   .. ..@ p       : int [1:55729] 0 0 0 2 2 10 16 16 16 21 ...
##   .. ..@ Dim     : int [1:2] 25842 55728
##   .. ..@ Dimnames:List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : NULL
##   .. ..@ x       : num [1:51684] 0.416 0.319 0.382 0.224 0.509 ...
##   .. ..@ factors : list()
cmp_nonstat = speed ~ -1 +
  Intercept(1) +
  SpeedLimit +
  field(loc, model = rspde_model_nonstat,
        replicate = data_rspde_bru_nonstat[["repl"]])

rspde_fit_nonstat <-
  bru(cmp_nonstat,
      data = data_rspde_bru_nonstat[["data"]],
      family = "T",
      options = list(verbose = FALSE)
  )
## 
##  *** inla.core.safe:  The inla program failed, but will rerun in case better initial values may help. try=1/1 
## 
##  *** inla.core.safe:  rerun with improved initial values
str(rspde_fit_nonstat)
## List of 56
##  $ names.fixed                : chr [1:2] "Intercept" "SpeedLimit"
##  $ summary.fixed              :'data.frame': 2 obs. of  7 variables:
##   ..$ mean      : num [1:2] 28.5 10.1
##   ..$ sd        : num [1:2] 0.181 0.16
##   ..$ 0.025quant: num [1:2] 28.19 9.79
##   ..$ 0.5quant  : num [1:2] 28.5 10.1
##   ..$ 0.975quant: num [1:2] 28.9 10.4
##   ..$ mode      : num [1:2] 28.5 10.1
##   ..$ kld       : num [1:2] 0 0
##  $ marginals.fixed            :List of 2
##   ..$ Intercept : num [1:43, 1:2] 27.8 27.9 28 28.1 28.2 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ SpeedLimit: num [1:43, 1:2] 9.42 9.51 9.61 9.73 9.79 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ summary.lincomb            :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb          : NULL
##  $ size.lincomb               : NULL
##  $ summary.lincomb.derived    :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb.derived  : NULL
##  $ size.lincomb.derived       : NULL
##  $ mlik                       : num [1:2, 1] -108221 -108216
##   ..- attr(*, "dimnames")=List of 2
##   .. ..$ : chr [1:2] "log marginal-likelihood (integration)" "log marginal-likelihood (Gaussian)"
##   .. ..$ : NULL
##  $ cpo                        :List of 3
##   ..$ cpo    : logi(0) 
##   ..$ pit    : logi(0) 
##   ..$ failure: logi(0) 
##  $ gcpo                       :List of 5
##   ..$ gcpo  : NULL
##   ..$ kld   : NULL
##   ..$ mean  : NULL
##   ..$ sd    : NULL
##   ..$ groups: NULL
##  $ po                         :List of 1
##   ..$ po: num [1:25842] 0.0209 0.0322 0.0196 0.0348 0.0342 ...
##  $ waic                       :List of 4
##   ..$ waic       : num 208425
##   ..$ p.eff      : num 3017
##   ..$ local.waic : num [1:25842] 8.17 6.98 8.35 6.75 6.79 ...
##   ..$ local.p.eff: num [1:25842] 0.2172 0.0532 0.2417 0.0149 0.0203 ...
##  $ residuals                  :List of 1
##   ..$ deviance.residuals: num [1:25842] 1.179 0.608 1.241 0 0 ...
##  $ model.random               : chr "CGeneric"
##  $ summary.random             :List of 1
##   ..$ field:'data.frame':    55728 obs. of  8 variables:
##   .. ..$ ID        : num [1:55728] 1 2 3 4 5 6 7 8 9 10 ...
##   .. ..$ mean      : num [1:55728] -4.3 -2.71 20.85 19.8 -4.04 ...
##   .. ..$ sd        : num [1:55728] 5.42 5.65 6.27 8.37 3.83 ...
##   .. ..$ 0.025quant: num [1:55728] -14.93 -13.78 8.57 3.4 -11.55 ...
##   .. ..$ 0.5quant  : num [1:55728] -4.3 -2.71 20.85 19.8 -4.04 ...
##   .. ..$ 0.975quant: num [1:55728] 6.32 8.36 33.14 36.21 3.46 ...
##   .. ..$ mode      : num [1:55728] -4.3 -2.71 20.85 19.8 -4.04 ...
##   .. ..$ kld       : num [1:55728] 0 0 0 0 0 0 0 0 0 0 ...
##  $ marginals.random           :List of 1
##   ..$ field:List of 55728
##   .. ..$ index.1    : num [1:43, 1:2] -27.4 -24.5 -21.1 -16.9 -14.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.2    : num [1:43, 1:2] -26.8 -23.7 -20.2 -15.9 -13.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.3    : num [1:43, 1:2] -5.87 -2.45 1.49 6.27 8.57 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.4    : num [1:43, 1:2] -15.9 -11.33 -6.06 0.33 3.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.5    : num [1:43, 1:2] -20.4 -18.3 -15.9 -13 -11.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.6    : num [1:43, 1:2] -10.54 -8.79 -6.78 -4.33 -3.16 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.7    : num [1:43, 1:2] -27 -23.8 -20.1 -15.7 -13.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.8    : num [1:43, 1:2] -30.5 -26.8 -22.6 -17.4 -14.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.9    : num [1:43, 1:2] -18 -16.07 -13.84 -11.13 -9.83 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.10   : num [1:43, 1:2] -21.6 -19.5 -17.2 -14.3 -13 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.11   : num [1:43, 1:2] -25.1 -22.5 -19.5 -15.8 -14.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.12   : num [1:43, 1:2] -13.57 -11.48 -9.06 -6.12 -4.71 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.13   : num [1:43, 1:2] -12.8 -10.76 -8.41 -5.55 -4.19 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.14   : num [1:43, 1:2] -15.7 -13.67 -11.34 -8.5 -7.14 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.15   : num [1:43, 1:2] -19.6 -17.7 -15.5 -12.8 -11.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.16   : num [1:43, 1:2] -16.52 -14.9 -13.03 -10.76 -9.67 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.17   : num [1:43, 1:2] -32.9 -29.3 -25.1 -19.9 -17.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.18   : num [1:43, 1:2] -35.9 -32.1 -27.7 -22.3 -19.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.19   : num [1:43, 1:2] -34.9 -31.5 -27.6 -22.8 -20.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.20   : num [1:43, 1:2] -28.2 -25.3 -22 -18 -16.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.21   : num [1:43, 1:2] -14.75 -13.09 -11.17 -8.85 -7.73 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.22   : num [1:43, 1:2] -17.83 -15.77 -13.39 -10.51 -9.13 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.23   : num [1:43, 1:2] -15.69 -13.75 -11.51 -8.79 -7.49 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.24   : num [1:43, 1:2] -15.9 -14.6 -13 -11.1 -10.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.25   : num [1:43, 1:2] -13.61 -12.25 -10.68 -8.78 -7.87 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.26   : num [1:43, 1:2] -16.87 -14.16 -11.03 -7.23 -5.41 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.27   : num [1:43, 1:2] -7.314 -5.683 -3.804 -1.522 -0.427 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.28   : num [1:43, 1:2] -24.8 -22.7 -20.2 -17.2 -15.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.29   : num [1:43, 1:2] -30 -27.3 -24.2 -20.4 -18.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.30   : num [1:43, 1:2] -23.8 -21.5 -18.7 -15.4 -13.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.31   : num [1:43, 1:2] -16.53 -14.86 -12.94 -10.6 -9.48 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.32   : num [1:43, 1:2] -19.7 -18.1 -16.2 -13.9 -12.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.33   : num [1:43, 1:2] -32.1 -27.8 -22.8 -16.7 -13.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.34   : num [1:43, 1:2] -31.7 -27.4 -22.4 -16.3 -13.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.35   : num [1:43, 1:2] -14.67 -12.38 -9.75 -6.55 -5.01 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.36   : num [1:43, 1:2] -16.84 -14.3 -11.38 -7.82 -6.11 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.37   : num [1:43, 1:2] -29.6 -25.5 -20.9 -15.2 -12.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.38   : num [1:43, 1:2] -28.6 -24.7 -20.1 -14.5 -11.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.39   : num [1:43, 1:2] -22.6 -20.5 -18 -15 -13.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.40   : num [1:43, 1:2] -22 -20.1 -17.9 -15.2 -14 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.41   : num [1:43, 1:2] -16.04 -13.38 -10.31 -6.59 -4.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.42   : num [1:43, 1:2] -16.89 -14.24 -11.18 -7.48 -5.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.43   : num [1:43, 1:2] -30.2 -26.5 -22.2 -17 -14.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.44   : num [1:43, 1:2] -28.4 -25 -21 -16.2 -13.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.45   : num [1:43, 1:2] -29.1 -25.6 -21.5 -16.6 -14.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.46   : num [1:43, 1:2] -30.5 -27.2 -23.3 -18.7 -16.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.47   : num [1:43, 1:2] -31.8 -28.6 -24.9 -20.3 -18.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.48   : num [1:43, 1:2] -32 -28.5 -24.6 -19.7 -17.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.49   : num [1:43, 1:2] -31.3 -27.9 -23.9 -19.1 -16.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.50   : num [1:43, 1:2] -24.4 -21.8 -18.8 -15.2 -13.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.51   : num [1:43, 1:2] -31.3 -27.8 -23.7 -18.8 -16.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.52   : num [1:43, 1:2] -26.5 -23.9 -21 -17.4 -15.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.53   : num [1:43, 1:2] -29.4 -25.9 -21.9 -17 -14.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.54   : num [1:43, 1:2] -23.6 -20.7 -17.4 -13.4 -11.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.55   : num [1:43, 1:2] -28.2 -24.7 -20.8 -16 -13.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.56   : num [1:43, 1:2] -26.5 -23.3 -19.7 -15.2 -13.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.57   : num [1:43, 1:2] -23.3 -20.2 -16.6 -12.2 -10.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.58   : num [1:43, 1:2] -22.9 -20.1 -16.9 -13.1 -11.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.59   : num [1:43, 1:2] -32 -28.5 -24.5 -19.7 -17.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.60   : num [1:43, 1:2] -33.5 -29.9 -25.6 -20.5 -18 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.61   : num [1:43, 1:2] -33.7 -29.9 -25.6 -20.4 -17.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.62   : num [1:43, 1:2] -22.2 -19.9 -17.1 -13.8 -12.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.63   : num [1:43, 1:2] -24.1 -21.4 -18.3 -14.5 -12.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.64   : num [1:43, 1:2] -23.9 -21.2 -18.1 -14.4 -12.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.65   : num [1:43, 1:2] -21.6 -19.2 -16.5 -13.2 -11.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.66   : num [1:43, 1:2] -33 -29.3 -25 -19.9 -17.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.67   : num [1:43, 1:2] -31.2 -27.7 -23.7 -18.9 -16.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.68   : num [1:43, 1:2] -22.9 -20.3 -17.4 -13.8 -12.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.69   : num [1:43, 1:2] -21.3 -19 -16.3 -13 -11.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.70   : num [1:43, 1:2] -22.5 -20.1 -17.3 -13.9 -12.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.71   : num [1:43, 1:2] -25.3 -22.6 -19.4 -15.6 -13.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.72   : num [1:43, 1:2] -32.1 -28 -23.3 -17.6 -14.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.73   : num [1:43, 1:2] -31 -27 -22.4 -16.7 -14 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.74   : num [1:43, 1:2] -33 -28.9 -24.1 -18.3 -15.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.75   : num [1:43, 1:2] -33.7 -29.5 -24.6 -18.6 -15.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.76   : num [1:43, 1:2] -28.7 -25.1 -21 -16 -13.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.77   : num [1:43, 1:2] -31.7 -27.7 -23.1 -17.6 -14.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.78   : num [1:43, 1:2] -25.7 -22.6 -18.9 -14.5 -12.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.79   : num [1:43, 1:2] -24.9 -21.8 -18.3 -14.1 -12.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.80   : num [1:43, 1:2] -23.6 -20.7 -17.4 -13.3 -11.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.81   : num [1:43, 1:2] -24.4 -21.4 -17.9 -13.6 -11.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.82   : num [1:43, 1:2] -24.5 -21.4 -17.9 -13.6 -11.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.83   : num [1:43, 1:2] -17.8 -15.69 -13.26 -10.3 -8.89 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.84   : num [1:43, 1:2] -16.71 -14.76 -12.5 -9.76 -8.45 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.85   : num [1:43, 1:2] -28.8 -24.4 -19.5 -13.4 -10.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.86   : num [1:43, 1:2] -26.7 -22.49 -17.63 -11.74 -8.91 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.87   : num [1:43, 1:2] -24.6 -21.5 -17.9 -13.5 -11.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.88   : num [1:43, 1:2] -23.6 -20.5 -17.1 -12.8 -10.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.89   : num [1:43, 1:2] -30.7 -26.4 -21.4 -15.4 -12.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.90   : num [1:43, 1:2] -30.4 -26.1 -21.1 -15.1 -12.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.91   : num [1:43, 1:2] -13.88 -12.2 -10.27 -7.91 -6.79 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.92   : num [1:43, 1:2] -12.06 -10.57 -8.86 -6.77 -5.77 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.93   : num [1:43, 1:2] -25.5 -22.3 -18.6 -14.1 -11.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.94   : num [1:43, 1:2] -25.3 -22.1 -18.4 -13.9 -11.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.95   : num [1:43, 1:2] -9.2 -7.43 -5.38 -2.89 -1.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.96   : num [1:43, 1:2] -2.33 -0.756 1.056 3.258 4.314 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.97   : num [1:43, 1:2] -18.21 -15.36 -12.07 -8.07 -6.16 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.98   : num [1:43, 1:2] -16.68 -13.98 -10.88 -7.1 -5.29 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.99   : num [1:43, 1:2] -22.3 -20.1 -17.5 -14.3 -12.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. .. [list output truncated]
##  $ size.random                :List of 1
##   ..$ :List of 5
##   .. ..$ n     : num 13932
##   .. ..$ N     : num 13932
##   .. ..$ Ntotal: num 55728
##   .. ..$ ngroup: num 1
##   .. ..$ nrep  : num 4
##  $ summary.linear.predictor   :'data.frame': 81572 obs. of  7 variables:
##   ..$ mean      : num [1:81572] 90 89.9 89.3 16.2 18.2 ...
##   ..$ sd        : num [1:81572] 4.82 4.77 4.97 3.07 3.27 ...
##   ..$ 0.025quant: num [1:81572] 80.5 80.5 79.5 10.2 11.7 ...
##   ..$ 0.5quant  : num [1:81572] 90 89.9 89.3 16.2 18.2 ...
##   ..$ 0.975quant: num [1:81572] 99.4 99.2 99 22.2 24.6 ...
##   ..$ mode      : num [1:81572] 90 89.9 89.3 16.2 18.2 ...
##   ..$ kld       : num [1:81572] 0 0 0 0 0 0 0 0 0 0 ...
##  $ marginals.linear.predictor : NULL
##  $ summary.fitted.values      :'data.frame': 81572 obs. of  6 variables:
##   ..$ mean      : num [1:81572] 90 89.9 89.3 16.2 18.2 ...
##   ..$ sd        : num [1:81572] 4.82 4.77 4.97 3.07 3.27 ...
##   ..$ 0.025quant: num [1:81572] 80.5 80.5 79.5 10.2 11.7 ...
##   ..$ 0.5quant  : num [1:81572] 90 89.9 89.3 16.2 18.2 ...
##   ..$ 0.975quant: num [1:81572] 99.4 99.2 99 22.2 24.6 ...
##   ..$ mode      : num [1:81572] 90 89.9 89.3 16.2 18.2 ...
##  $ marginals.fitted.values    : NULL
##  $ size.linear.predictor      :List of 5
##   ..$ n     : num 55730
##   ..$ N     : num 55730
##   ..$ Ntotal: num 81572
##   ..$ ngroup: num 1
##   ..$ nrep  : num 2
##  $ summary.hyperpar           :'data.frame': 6 obs. of  6 variables:
##   ..$ mean      : num [1:6] 0.000633 2.117709 2.139948 -0.957579 0.020587 ...
##   ..$ sd        : num [1:6] 1.96e-07 6.07e-05 4.29e-04 4.23e-04 3.80e-04 ...
##   ..$ 0.025quant: num [1:6] 0.000633 2.117619 2.139018 -0.958303 0.019864 ...
##   ..$ 0.5quant  : num [1:6] 0.000633 2.117701 2.139974 -0.957609 0.020579 ...
##   ..$ 0.975quant: num [1:6] 0.000634 2.11785 2.140693 -0.956654 0.021362 ...
##   ..$ mode      : num [1:6] 0.000633 2.117659 2.140115 -0.957762 0.02054 ...
##  $ marginals.hyperpar         :List of 6
##   ..$ precision for the student-t observations: num [1:43, 1:2] 0.000633 0.000633 0.000633 0.000633 0.000633 ...
##   .. ..- attr(*, "hyperid")= chr "100001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ degrees of freedom for student-t        : num [1:43, 1:2] 2.12 2.12 2.12 2.12 2.12 ...
##   .. ..- attr(*, "hyperid")= chr "100002|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                        : num [1:43, 1:2] 2.14 2.14 2.14 2.14 2.14 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                        : num [1:43, 1:2] -0.959 -0.959 -0.959 -0.958 -0.958 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta3 for field                        : num [1:43, 1:2] 0.0191 0.0192 0.0195 0.0197 0.0199 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta4 for field                        : num [1:43, 1:2] -0.0883 -0.0881 -0.0878 -0.0874 -0.0873 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ internal.summary.hyperpar  :'data.frame': 6 obs. of  6 variables:
##   ..$ mean      : num [1:6] -7.3645 -2.1395 2.1399 -0.9576 0.0206 ...
##   ..$ sd        : num [1:6] 0.000309 0.000514 0.000429 0.000423 0.00038 ...
##   ..$ 0.025quant: num [1:6] -7.3651 -2.1403 2.139 -0.9583 0.0199 ...
##   ..$ 0.5quant  : num [1:6] -7.3645 -2.1396 2.14 -0.9576 0.0206 ...
##   ..$ 0.975quant: num [1:6] -7.3639 -2.1383 2.1407 -0.9567 0.0214 ...
##   ..$ mode      : num [1:6] -7.3646 -2.14 2.1401 -0.9578 0.0205 ...
##  $ internal.marginals.hyperpar:List of 6
##   ..$ log precision for the student-t observations: num [1:43, 1:2] -7.37 -7.37 -7.37 -7.37 -7.37 ...
##   .. ..- attr(*, "hyperid")= chr "100001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ dof_intern for student-t                    : num [1:43, 1:2] -2.14 -2.14 -2.14 -2.14 -2.14 ...
##   .. ..- attr(*, "hyperid")= chr "100002|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                            : num [1:43, 1:2] 2.14 2.14 2.14 2.14 2.14 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                            : num [1:43, 1:2] -0.959 -0.959 -0.959 -0.958 -0.958 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta3 for field                            : num [1:43, 1:2] 0.0191 0.0192 0.0195 0.0197 0.0199 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta4 for field                            : num [1:43, 1:2] -0.0883 -0.0881 -0.0878 -0.0874 -0.0873 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ offset.linear.predictor    : num [1:81572] 0 0 0 0 0 0 0 0 0 0 ...
##  $ model.spde2.blc            : NULL
##  $ summary.spde2.blc          : list()
##  $ marginals.spde2.blc        : NULL
##  $ size.spde2.blc             : NULL
##  $ model.spde3.blc            : NULL
##  $ summary.spde3.blc          : list()
##  $ marginals.spde3.blc        : NULL
##  $ size.spde3.blc             : NULL
##  $ logfile                    : chr [1:6776] "[PANUA] PARDISO License is expired." "[PANUA] Please obtain a new PARDISO license at https://www.panua.ch/products/pardiso" "        Read ntt 24 1 with max.threads 24" "        Found num.threads = 24:1 max_threads = 24" ...
##  $ misc                       :List of 22
##   ..$ cov.intern                        : num [1:6, 1:6] 1.61e-07 7.63e-09 1.42e-09 -8.40e-10 -8.79e-10 ...
##   ..$ cor.intern                        : num [1:6, 1:6] 1 0.04623 0.00802 -0.00508 -0.00495 ...
##   ..$ cov.intern.eigenvalues            : num [1:6] 2.36e-07 1.47e-07 1.54e-07 1.80e-07 1.73e-07 ...
##   ..$ cov.intern.eigenvectors           : num [1:6, 1:6] 0.00469 0.07942 -0.69641 0.0472 0.7014 ...
##   ..$ reordering                        : int [1:55730] 7448 7463 1120 1132 10042 10054 10041 10050 10055 10033 ...
##   ..$ theta.tags                        : chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   ..$ log.posterior.mode                : num -108174
##   ..$ stdev.corr.negative               : num [1:6] 0.669 0.744 0.609 0.735 0.43 ...
##   ..$ stdev.corr.positive               : num [1:6] 1.49 1.34 1.64 1.36 2.33 ...
##   ..$ to.theta                          :List of 6
##   .. ..$ log precision for the student-t observations:function (x)  
##   .. ..$ dof_intern for student-t                    :function (x)  
##   .. ..$ Theta1 for field                            :function (x)  
##   .. ..$ Theta2 for field                            :function (x)  
##   .. ..$ Theta3 for field                            :function (x)  
##   .. ..$ Theta4 for field                            :function (x)  
##   ..$ from.theta                        :List of 6
##   .. ..$ log precision for the student-t observations:function (x)  
##   .. ..$ dof_intern for student-t                    :function (x)  
##   .. ..$ Theta1 for field                            :function (x)  
##   .. ..$ Theta2 for field                            :function (x)  
##   .. ..$ Theta3 for field                            :function (x)  
##   .. ..$ Theta4 for field                            :function (x)  
##   ..$ mode.status                       : num 0
##   ..$ lincomb.derived.correlation.matrix: NULL
##   ..$ lincomb.derived.covariance.matrix : NULL
##   ..$ opt.directions                    : num [1:6, 1:6] 0.5691 -0.3864 0.7059 -0.1685 0.0107 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : chr [1:6] "theta:1" "theta:2" "theta:3" "theta:4" ...
##   .. .. ..$ : chr [1:6] "dir:1" "dir:2" "dir:3" "dir:4" ...
##   ..$ configs                           :List of 17
##   .. ..$ .preopt          : logi TRUE
##   .. ..$ lite             : logi FALSE
##   .. ..$ mpred            : int 25842
##   .. ..$ npred            : int 55730
##   .. ..$ mnpred           : int 81572
##   .. ..$ Npred            : int 25842
##   .. ..$ n                : int 55730
##   .. ..$ nz               : int 153769
##   .. ..$ prior_nz         : int 116274
##   .. ..$ ntheta           : int 6
##   .. ..$ nconfig          : int 45
##   .. ..$ offsets          : num [1:81572] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ contents         :List of 3
##   .. .. ..$ tag   : chr [1:5] "APredictor" "Predictor" "field" "Intercept" ...
##   .. .. ..$ start : int [1:5] 1 25843 81573 137301 137302
##   .. .. ..$ length: int [1:5] 25842 55730 55728 1 1
##   .. ..$ A                :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:55730] 2 3 4 5 6 7 8 9 10 11 ...
##   .. .. .. ..@ j       : int [1:55730] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:55730] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ pA               :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:103342] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:103342] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 25842 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:103342] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ config           :List of 45
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3646 -2.14 2.1401 -0.9578 0.0205 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.2
##   .. .. .. ..$ log.posterior.orig: num 0
##   .. .. .. ..$ mean              : num [1:55730] -4.37 -2.76 20.28 19.38 -4.17 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -4.3 -2.71 20.85 19.8 -4.04 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3101 0.1541 0.051 0.0435 0.0828 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 29.4 31.9 39.3 70.1 14.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3101 0.1541 0.0488 0.0435 0.0533 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1078 0.0282 0.1101 -0.0285 -0.0342 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 90 89.9 89.3 16.2 18.2 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.54 10.1 -4.3 -2.71 20.85 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3646 -2.1398 2.1388 -0.9577 0.0219 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 17 14.3 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18.03 14.91 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3116 0.1548 0.0502 0.0433 0.0826 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.7 25.2 39.9 63.1 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3116 0.1548 0.0486 0.0433 0.0531 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0586 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18.03 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3646 -2.1401 2.1407 -0.9578 0.0199 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.76 16.94 14.26 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 17.98 14.88 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3094 0.1538 0.0505 0.0436 0.0829 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.4 39.6 62.7 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3094 0.1538 0.0489 0.0436 0.0534 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0584 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 17.98 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3655 -2.1394 2.1405 -0.9581 0.0208 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.96 14.28 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18 14.89 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3097 0.1539 0.0503 0.0434 0.0827 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.3 39.7 62.9 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3097 0.1539 0.0487 0.0434 0.0533 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0584 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3641 -2.1403 2.1399 -0.9576 0.0204 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.76 16.96 14.27 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 17.99 14.89 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3103 0.1542 0.0504 0.0435 0.0828 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.7 62.8 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3103 0.1542 0.0488 0.0435 0.0533 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0585 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 17.99 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3652 -2.1397 2.1392 -0.9571 0.0195 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.05 -1.76 16.89 14.23 -3.25 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 17.92 14.84 -3.78 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3103 0.1542 0.0508 0.0439 0.0833 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.4 62.4 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3103 0.1542 0.0492 0.0439 0.0538 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0587 0.1137 -0.0271 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 17.92 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3644 -2.1401 2.1405 -0.958 0.0209 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.98 14.29 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18.02 14.91 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.31 0.154 0.0502 0.0433 0.0826 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.8 63 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.31 0.154 0.0486 0.0433 0.0531 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0584 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18.02 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3652 -2.1395 2.14 -0.9581 0.0206 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.98 14.28 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18.01 14.89 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3104 0.1542 0.0502 0.0433 0.0826 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.8 63 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3104 0.1542 0.0486 0.0433 0.0531 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0585 0.1137 -0.0269 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18.01 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3643 -2.1403 2.1402 -0.9576 0.0205 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.76 16.95 14.27 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 17.99 14.89 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3099 0.154 0.0505 0.0436 0.0829 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.3 39.6 62.7 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3099 0.154 0.0489 0.0436 0.0534 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0584 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 17.99 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3632 -2.1378 2.1402 -0.9575 0.0203 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.95 14.27 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 17.98 14.88 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.31 0.154 0.0504 0.0435 0.0829 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.6 62.8 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.31 0.154 0.0488 0.0435 0.0534 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0585 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 17.98 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3649 -2.1404 2.1401 -0.9578 0.0206 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.96 14.28 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18 14.89 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3101 0.1541 0.0504 0.0435 0.0828 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.7 62.9 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3101 0.1541 0.0488 0.0435 0.0533 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0585 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.365 -2.14 2.141 -0.956 0.021 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.76 16.99 14.3 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 18.03 14.92 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3105 0.1543 0.0503 0.0434 0.0827 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.8 63 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3105 0.1543 0.0486 0.0434 0.0532 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0584 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.46 10.18 -3.1 -1.79 18.03 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3645 -2.14 2.1399 -0.9585 0.0203 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.94 14.26 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 17.98 14.87 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3099 0.154 0.0504 0.0435 0.0829 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.6 62.8 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3099 0.154 0.0488 0.0435 0.0534 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0585 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 17.98 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3635 -2.1394 2.1404 -0.9579 0.0202 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1796
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.95 14.27 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 17.98 14.88 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3097 0.1539 0.0505 0.0435 0.0829 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.3 39.6 62.8 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3097 0.1539 0.0488 0.0435 0.0534 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0584 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 17.98 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3637 -2.1394 2.1407 -0.9571 0.0205 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.05 -1.76 16.97 14.29 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 18.01 14.9 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3099 0.154 0.0504 0.0435 0.0828 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.3 39.7 62.9 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3099 0.154 0.0488 0.0435 0.0533 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0584 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 18.01 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3646 -2.1402 2.1403 -0.9582 0.0203 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.96 14.27 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18 14.89 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.31 0.154 0.0503 0.0434 0.0827 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.7 62.9 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.31 0.154 0.0487 0.0434 0.0532 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0585 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3648 -2.1402 2.1406 -0.9574 0.0206 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.98 14.29 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18.02 14.91 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3102 0.1541 0.0502 0.0433 0.0826 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.8 63 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3102 0.1541 0.0486 0.0433 0.0532 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0584 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18.02 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3646 -2.1403 2.1398 -0.9577 0.0197 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.05 -1.76 16.92 14.24 -3.26 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 17.95 14.86 -3.79 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3099 0.154 0.0507 0.0437 0.0831 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.3 39.5 62.5 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3099 0.154 0.049 0.0437 0.0536 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0585 0.1138 -0.0271 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 17.95 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.365 -2.14 2.14 -0.957 0.02 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.05 -1.76 16.93 14.26 -3.26 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 17.97 14.88 -3.79 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3101 0.1541 0.0506 0.0437 0.083 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.3 39.5 62.6 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3101 0.1541 0.049 0.0437 0.0535 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0585 0.1138 -0.0271 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 17.97 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3643 -2.139 2.1398 -0.9577 0.0196 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.76 16.92 14.24 -3.26 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 17.95 14.86 -3.79 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.31 0.154 0.0506 0.0437 0.083 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.3 39.6 62.6 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.31 0.154 0.049 0.0437 0.0535 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0586 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 17.95 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3644 -2.139 2.1401 -0.9569 0.0199 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.76 16.94 14.26 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 17.97 14.88 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3103 0.1542 0.0505 0.0436 0.0829 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.6 62.7 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3103 0.1542 0.0489 0.0436 0.0534 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0585 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 17.97 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3648 -2.1401 2.1406 -0.9583 0.0205 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.95 14.27 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 17.99 14.89 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3095 0.1538 0.0504 0.0435 0.0828 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.4 39.6 62.8 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3095 0.1538 0.0488 0.0435 0.0533 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0584 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 17.99 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3649 -2.1401 2.1409 -0.9574 0.0207 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.97 14.29 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 18.01 14.91 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3097 0.1539 0.0503 0.0434 0.0827 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.3 39.7 62.9 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3097 0.1539 0.0487 0.0434 0.0532 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0583 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.17 -3.1 -1.79 18.01 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3645 -2.1387 2.1406 -0.9583 0.0204 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.96 14.27 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18 14.88 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3097 0.1539 0.0503 0.0434 0.0827 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.3 39.7 62.9 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3097 0.1539 0.0487 0.0434 0.0532 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0584 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3646 -2.1387 2.1409 -0.9575 0.0207 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.98 14.29 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18.02 14.9 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3099 0.154 0.0502 0.0433 0.0826 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.3 39.8 63 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3099 0.154 0.0486 0.0433 0.0532 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0584 0.1137 -0.0269 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18.02 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3644 -2.1389 2.1401 -0.9578 0.0198 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.76 16.91 14.24 -3.26 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 17.94 14.85 -3.79 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3096 0.1538 0.0507 0.0437 0.0831 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.4 39.5 62.5 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3096 0.1538 0.049 0.0437 0.0536 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0585 0.1137 -0.0271 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 17.94 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.365 -2.139 2.14 -0.957 0.02 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.05 -1.76 16.93 14.26 -3.26 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 17.96 14.87 -3.79 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3098 0.1539 0.0506 0.0437 0.083 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.4 39.6 62.6 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3098 0.1539 0.049 0.0437 0.0535 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0584 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 17.96 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3655 -2.1396 2.14 -0.9581 0.0199 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.93 14.25 -3.26 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 17.96 14.86 -3.79 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3098 0.1539 0.0505 0.0436 0.0829 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.3 39.6 62.7 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3098 0.1539 0.0489 0.0436 0.0535 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0585 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 17.96 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3657 -2.1396 2.1403 -0.9572 0.0202 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.76 16.95 14.27 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 17.98 14.88 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3101 0.1541 0.0504 0.0435 0.0828 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.9 25.3 39.7 62.8 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3101 0.1541 0.0488 0.0435 0.0534 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0585 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 17.98 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3642 -2.1404 2.1395 -0.958 0.0211 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.98 14.29 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18.01 14.9 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3106 0.1543 0.0503 0.0434 0.0827 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.7 62.9 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3106 0.1543 0.0487 0.0434 0.0532 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0585 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18.01 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3644 -2.1404 2.1399 -0.9572 0.0214 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 17 14.3 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18.03 14.92 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3108 0.1544 0.0502 0.0433 0.0827 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.8 63.1 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3108 0.1544 0.0486 0.0433 0.0532 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0585 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.46 10.18 -3.1 -1.78 18.03 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3639 -2.139 2.1395 -0.9581 0.0211 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.98 14.29 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18.02 14.9 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3108 0.1544 0.0502 0.0433 0.0826 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.8 63 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3108 0.1544 0.0486 0.0433 0.0531 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0586 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18.02 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3641 -2.139 2.1398 -0.9572 0.0213 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 17 14.3 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18.04 14.92 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.311 0.1545 0.0502 0.0433 0.0826 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.9 63.1 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.311 0.1545 0.0485 0.0433 0.0531 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0585 0.1138 -0.0269 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.46 10.18 -3.1 -1.78 18.04 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3639 -2.1392 2.139 -0.9575 0.0204 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.93 14.26 -3.26 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 17.96 14.87 -3.79 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3107 0.1544 0.0506 0.0437 0.083 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.6 62.7 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3107 0.1544 0.049 0.0437 0.0535 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0586 0.1138 -0.0271 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 17.96 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.364 -2.1392 2.1394 -0.9567 0.0207 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.76 16.95 14.28 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.79 17.99 14.89 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3109 0.1545 0.0505 0.0436 0.0829 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.7 62.8 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3109 0.1545 0.0489 0.0436 0.0534 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0586 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.79 17.99 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3649 -2.1399 2.1389 -0.9578 0.0205 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.95 14.26 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 17.98 14.87 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.311 0.1545 0.0504 0.0435 0.0829 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.7 62.8 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.311 0.1545 0.0488 0.0435 0.0534 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.1131 0.0587 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 17.98 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3651 -2.1399 2.1392 -0.957 0.0208 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.97 14.28 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18 14.89 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3112 0.1546 0.0504 0.0435 0.0828 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.8 62.9 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3112 0.1546 0.0487 0.0435 0.0533 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0586 0.1138 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3641 -2.139 2.1399 -0.9581 0.0212 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1793
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.97 14.28 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18.01 14.9 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3103 0.1542 0.0503 0.0434 0.0827 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.7 62.9 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3103 0.1542 0.0487 0.0434 0.0532 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0585 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18.01 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3642 -2.1389 2.1402 -0.9572 0.0215 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.99 14.3 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18.03 14.92 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3106 0.1543 0.0502 0.0433 0.0826 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.8 63.1 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3106 0.1543 0.0486 0.0433 0.0532 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0584 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18.03 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3652 -2.1397 2.1397 -0.9584 0.0213 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.99 14.29 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18.02 14.9 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3106 0.1543 0.0502 0.0433 0.0826 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.9 63.1 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3106 0.1543 0.0486 0.0433 0.0531 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0585 0.1137 -0.0269 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18.02 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3653 -2.1397 2.14 -0.9575 0.0216 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 17.01 14.31 -3.28 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18.04 14.92 -3.81 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3108 0.1544 0.0501 0.0432 0.0825 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.9 63.2 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3108 0.1544 0.0485 0.0432 0.053 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0585 0.1137 -0.0269 -0.0306 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18.04 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3651 -2.1398 2.1393 -0.9578 0.0207 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1797
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.94 14.26 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 17.97 14.87 -3.79 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3105 0.1543 0.0505 0.0436 0.0829 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.6 62.7 14.3 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3105 0.1543 0.0489 0.0436 0.0535 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0586 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 17.97 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3653 -2.1398 2.1396 -0.957 0.0209 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.96 14.28 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 17.99 14.89 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3107 0.1544 0.0504 0.0435 0.0829 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.7 62.8 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3107 0.1544 0.0488 0.0435 0.0534 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0585 0.1137 -0.027 -0.0307 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 17.99 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.3648 -2.1385 2.1392 -0.9579 0.0206 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1794
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.94 14.26 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 17.98 14.87 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3107 0.1544 0.0504 0.0435 0.0828 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.7 62.8 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3107 0.1544 0.0488 0.0435 0.0534 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0586 0.1137 -0.027 -0.0306 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 17.98 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:6] -7.365 -2.1385 2.1396 -0.957 0.0209 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -1798
##   .. .. .. ..$ log.posterior.orig: num -1795
##   .. .. .. ..$ mean              : num [1:55730] -3.04 -1.75 16.96 14.28 -3.27 ...
##   .. .. .. ..$ improved.mean     : num [1:55730] -3.1 -1.78 18 14.89 -3.8 ...
##   .. .. .. ..$ skewness          : logi [1:55730] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 0.3109 0.1545 0.0504 0.0435 0.0828 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:153769] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:153769] 23.8 25.3 39.8 62.9 14.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:116274] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ p       : int [1:55731] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 55730 55730
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:116274] 0.3109 0.1545 0.0488 0.0435 0.0533 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:25842, 1:3] 0.113 0.0586 0.1137 -0.027 -0.0306 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:25842, 1:2] 87.5 87.4 86.8 16.2 18.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:55730, 1:2] 28.45 10.18 -3.1 -1.78 18 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. ..$ max.log.posterior: num -106381
##   ..$ nfunc                             : num 1235
##   ..$ warnings                          : chr "Stupid local search strategy used: This is usually a sign of a ill-defined model and/or non-informative data."
##   ..$ opt.trace                         :List of 3
##   .. ..$ f    : Named num [1:91] 164846 123776 123353 107758 107733 ...
##   .. .. ..- attr(*, "names")= chr [1:91] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ nfunc: Named int [1:91] 1 2 3 13 80 83 93 94 98 105 ...
##   .. .. ..- attr(*, "names")= chr [1:91] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ theta: num [1:91, 1:6] -6.97 -6.97 -6.97 -7.54 -7.52 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : chr [1:91] "iter1" "iter2" "iter3" "iter4" ...
##   .. .. .. ..$ : chr [1:6] "theta1" "theta2" "theta3" "theta4" ...
##   ..$ theta.mode                        : num [1:6] -7.3646 -2.14 2.1401 -0.9578 0.0205 ...
##   ..$ linkfunctions                     :List of 2
##   .. ..$ names: chr "identity"
##   .. ..$ link : int [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ family                            : int [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##  $ dic                        :List of 14
##   ..$ dic              : num 207940
##   ..$ p.eff            : num 2669
##   ..$ mean.deviance    : num 205271
##   ..$ deviance.mean    : num 202602
##   ..$ dic.sat          : num -4397
##   ..$ mean.deviance.sat: num -7066
##   ..$ deviance.mean.sat: num -9734
##   ..$ family.dic       : num 207940
##   ..$ family.dic.sat   : num -4397
##   ..$ family.p.eff     : num 2669
##   ..$ family           : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ local.dic        : num [1:25842] 8.04 7.23 8.17 6.87 6.93 ...
##   ..$ local.dic.sat    : num [1:25842] 1.492 0.686 1.626 -7.952 -6.351 ...
##   ..$ local.p.eff      : num [1:25842] 0.1006 0.3165 0.0875 0.1422 0.1569 ...
##  $ mode                       :List of 5
##   ..$ theta             : Named num [1:6] -7.3646 -2.14 2.1401 -0.9578 0.0205 ...
##   .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   ..$ x                 : num [1:137302] 90.1 90 89.5 16.2 18.2 ...
##   ..$ theta.tags        : chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   ..$ mode.status       : num 0
##   ..$ log.posterior.mode: num -108174
##  $ joint.hyper                :'data.frame': 1 obs. of  8 variables:
##   ..$ log precision for the student-t observations: num -7.36
##   ..$ dof_intern for student-t                    : num -2.14
##   ..$ Theta1 for field                            : num 2.14
##   ..$ Theta2 for field                            : num -0.958
##   ..$ Theta3 for field                            : num 0.0205
##   ..$ Theta4 for field                            : num -0.0864
##   ..$ Log posterior density                       : num -106428
##   ..$ Total integration weight (log.dens included): int 1
##  $ nhyper                     : int 6
##  $ version                    :List of 2
##   ..$ inla.call: chr "GITCOMMIT [b51fb385728e90bce98ca92b1d8762a2d13f655c - Sat May 18 13:21:08 2024 +0300]"
##   ..$ R.INLA   : Named chr "24.05.18-2"
##   .. ..- attr(*, "names")= chr "version"
##  $ Q                          : NULL
##  $ graph                      : NULL
##  $ ok                         : logi TRUE
##  $ cpu.intern                 : chr [1:16] "Wall-clock time used on [/tmp/Rtmp2Fj70V/file296aaf2f6e186b/Model.ini]" "Preparations             :   0.138 seconds" "Approx inference (stage1): 2030.395 seconds" "Approx inference (stage2):   0.002 seconds" ...
##  $ cpu.used                   : Named num [1:4] 0.346 2033.379 3.437 2037.162
##   ..- attr(*, "names")= chr [1:4] "Pre" "Running" "Post" "Total"
##  $ all.hyper                  :List of 4
##   ..$ predictor:List of 1
##   .. ..$ hyper:List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   ..$ family   :List of 1
##   .. ..$ :List of 4
##   .. .. ..$ hyperid: chr "INLA.Data1"
##   .. .. ..$ label  : chr "t"
##   .. .. ..$ hyper  :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "log precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 0
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log degrees of freedom"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "degrees of freedom for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "dof_intern for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "pc.dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 15 0.5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ link   :List of 1
##   .. .. .. ..$ hyper: list()
##   ..$ linear   :List of 2
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "Intercept"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "SpeedLimit"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   ..$ random   :List of 3
##   .. ..$ : NULL
##   .. ..$ : NULL
##   .. ..$ :List of 3
##   .. .. ..$ hyperid    : chr "field"
##   .. .. ..$ hyper      : NULL
##   .. .. ..$ group.hyper:List of 1
##   .. .. .. ..$ theta:List of 9
##   .. .. .. .. ..$ hyperid   : num 40001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name      : chr "logit correlation"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name: chr "rho"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial   : num 1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed     : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior     : chr "normal"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param     : num [1:2] 0 0.2
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta  :function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta:function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##  $ .args                      :List of 30
##   ..$ formula          :Class 'formula'  language BRU.response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   ..$ family           : chr "t"
##   ..$ data             :List of 21
##   .. ..$ BRU.response             : num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. ..$ BRU.E                    : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.Ntrials              : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.weights              : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.scale                : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.offset               : num [1:25842] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ Intercept                : num [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.group          : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.repl           : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit               : num [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit.group         : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit.repl          : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ field                    : int [1:55730] NA NA 1 2 3 4 5 6 7 8 ...
##   .. ..$ field.group              : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. ..$ field.repl               : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU_Intercept_main_model : chr "linear"
##   .. ..$ BRU_Intercept_values     : num 1
##   .. ..$ BRU_SpeedLimit_main_model: chr "linear"
##   .. ..$ BRU_SpeedLimit_values    : num 1
##   .. ..$ BRU_field_main_model     :List of 21
##   .. .. ..$ f                   :List of 3
##   .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. ..$ n       : int 13932
##   .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. ..$ alpha      : int 1
##   .. .. .. .. .. ..$ doubles   :List of 2
##   .. .. .. .. .. .. ..$ start.theta     : num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. .. ..$ theta.prior.mean: num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. ..$ characters:List of 3
##   .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. ..$ matrices  :List of 3
##   .. .. .. .. .. .. ..$ B_tau           : num [1:69662] 13932 5 -0.693 -1 0.5 ...
##   .. .. .. .. .. .. ..$ B_kappa         : num [1:69662] 13932 5 0.693 0 -1 ...
##   .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. ..$ C: num [1:41799] 13932 13932 13932 0 1 ...
##   .. .. .. .. .. .. ..$ G: num [1:132615] 13932 13932 44204 0 5681 ...
##   .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. ..$ nu                  : num 0.5
##   .. .. ..$ theta.prior.mean    : num [1:4] 2.84 -1.26 0 0
##   .. .. ..$ prior.nu            :List of 4
##   .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. ..$ mean       : num 1
##   .. .. .. ..$ prec       : num 3
##   .. .. .. ..$ logscale   : num 1
##   .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. ..$ start.nu            : num 0.5
##   .. .. ..$ integer.nu          : logi TRUE
##   .. .. ..$ start.theta         : num [1:4] 2.84 -1.26 0 0
##   .. .. ..$ stationary          : logi FALSE
##   .. .. ..$ rspde.order         : num 2
##   .. .. ..$ dim                 : num 1
##   .. .. ..$ est_nu              : logi FALSE
##   .. .. ..$ nu.upper.bound      : num 2
##   .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. ..$ debug               : logi FALSE
##   .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. ..$ fem_mesh            :List of 4
##   .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. ..$ parameterization    : chr "matern"
##   .. .. ..$ n.spde              : int 13932
##   .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. ..$ BRU_field_values         : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ quantiles        : num [1:3] 0.025 0.5 0.975
##   ..$ E                : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ offset           : num [1:25842] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ scale            : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ weights          : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ Ntrials          : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ verbose          : logi FALSE
##   ..$ control.compute  :List of 18
##   .. ..$ openmp.strategy           : chr "default"
##   .. ..$ hyperpar                  : logi TRUE
##   .. ..$ return.marginals          : logi TRUE
##   .. ..$ return.marginals.predictor: logi FALSE
##   .. ..$ dic                       : logi TRUE
##   .. ..$ mlik                      : logi TRUE
##   .. ..$ cpo                       : logi FALSE
##   .. ..$ po                        : logi FALSE
##   .. ..$ waic                      : logi TRUE
##   .. ..$ residuals                 : logi FALSE
##   .. ..$ q                         : logi FALSE
##   .. ..$ config                    : logi TRUE
##   .. ..$ likelihood.info           : logi FALSE
##   .. ..$ smtp                      : NULL
##   .. ..$ graph                     : logi FALSE
##   .. ..$ internal.opt              : NULL
##   .. ..$ save.memory               : NULL
##   .. ..$ control.gcpo              :List of 16
##   .. .. ..$ enable          : logi FALSE
##   .. .. ..$ num.level.sets  : num -1
##   .. .. ..$ size.max        : num 32
##   .. .. ..$ strategy        : chr [1:2] "posterior" "prior"
##   .. .. ..$ groups          : NULL
##   .. .. ..$ selection       : NULL
##   .. .. ..$ group.selection : NULL
##   .. .. ..$ friends         : NULL
##   .. .. ..$ weights         : NULL
##   .. .. ..$ verbose         : logi FALSE
##   .. .. ..$ epsilon         : num 0.005
##   .. .. ..$ prior.diagonal  : num 1e-04
##   .. .. ..$ correct.hyperpar: logi TRUE
##   .. .. ..$ keep            : NULL
##   .. .. ..$ remove          : NULL
##   .. .. ..$ remove.fixed    : logi TRUE
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_gcpo" "inla_ctrl_object"
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_compute" "inla_ctrl_object"
##   ..$ control.predictor:List of 12
##   .. ..$ hyper    :List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. ..$ fixed    : NULL
##   .. ..$ prior    : NULL
##   .. ..$ param    : NULL
##   .. ..$ initial  : NULL
##   .. ..$ compute  : logi TRUE
##   .. ..$ cdf      : NULL
##   .. ..$ quantiles: NULL
##   .. ..$ cross    : NULL
##   .. ..$ A        :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:103342] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:103342] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 25842 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:103342] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ precision: num 3269017
##   .. ..$ link     : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_predictor" "inla_ctrl_object"
##   ..$ control.family   :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ dummy            : num 0
##   .. .. ..$ hyper            :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "log precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 0
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log degrees of freedom"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "degrees of freedom for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "dof_intern for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "pc.dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 15 0.5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ initial          : NULL
##   .. .. ..$ prior            : NULL
##   .. .. ..$ param            : NULL
##   .. .. ..$ fixed            : NULL
##   .. .. ..$ link             : chr "default"
##   .. .. ..$ sn.shape.max     : num 5
##   .. .. ..$ gev.scale.xi     : num 0.1
##   .. .. ..$ control.bgev     : NULL
##   .. .. ..$ cenpoisson.I     : int [1:2] -1 -1
##   .. .. ..$ beta.censor.value: num 0
##   .. .. ..$ variant          : int 0
##   .. .. ..$ control.mix      : NULL
##   .. .. ..$ control.pom      : NULL
##   .. .. ..$ control.link     :List of 10
##   .. .. .. ..$ model   : chr "default"
##   .. .. .. ..$ order   : NULL
##   .. .. .. ..$ variant : NULL
##   .. .. .. ..$ hyper   : list()
##   .. .. .. ..$ quantile: NULL
##   .. .. .. ..$ a       : num 1
##   .. .. .. ..$ initial : NULL
##   .. .. .. ..$ fixed   : NULL
##   .. .. .. ..$ prior   : NULL
##   .. .. .. ..$ param   : NULL
##   .. .. .. ..- attr(*, "class")= chr [1:2] "ctrl_link" "inla_ctrl_object"
##   .. .. ..$ link.simple      : chr "default"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_family" "inla_ctrl_object"
##   ..$ control.inla     :List of 56
##   .. ..$ strategy                          : chr "auto"
##   .. ..$ int.strategy                      : chr "auto"
##   .. ..$ int.design                        : NULL
##   .. ..$ interpolator                      : chr "auto"
##   .. ..$ fast                              : logi TRUE
##   .. ..$ linear.correction                 : NULL
##   .. ..$ h                                 : num 5e-04
##   .. ..$ dz                                : num 0.75
##   .. ..$ diff.logdens                      : num 6
##   .. ..$ print.joint.hyper                 : logi TRUE
##   .. ..$ force.diagonal                    : logi FALSE
##   .. ..$ skip.configurations               : logi TRUE
##   .. ..$ mode.known                        : logi FALSE
##   .. ..$ adjust.weights                    : logi TRUE
##   .. ..$ tolerance                         : num 2.5e-05
##   .. ..$ tolerance.f                       : NULL
##   .. ..$ tolerance.g                       : NULL
##   .. ..$ tolerance.x                       : NULL
##   .. ..$ tolerance.step                    : num 1e-10
##   .. ..$ restart                           : int 0
##   .. ..$ optimiser                         : chr "default"
##   .. ..$ verbose                           : NULL
##   .. ..$ reordering                        : chr "auto"
##   .. ..$ cpo.diff                          : NULL
##   .. ..$ npoints                           : num 9
##   .. ..$ cutoff                            : num 1e-04
##   .. ..$ adapt.hessian.mode                : NULL
##   .. ..$ adapt.hessian.max.trials          : NULL
##   .. ..$ adapt.hessian.scale               : NULL
##   .. ..$ adaptive.max                      : int 25
##   .. ..$ huge                              : logi FALSE
##   .. ..$ step.len                          : num 0
##   .. ..$ stencil                           : int 5
##   .. ..$ lincomb.derived.correlation.matrix: logi FALSE
##   .. ..$ diagonal                          : num 0
##   .. ..$ numint.maxfeval                   : num 1e+05
##   .. ..$ numint.relerr                     : num 1e-05
##   .. ..$ numint.abserr                     : num 1e-06
##   .. ..$ cmin                              : num -Inf
##   .. ..$ b.strategy                        : chr "keep"
##   .. ..$ step.factor                       : num 1
##   .. ..$ global.node.factor                : num 2
##   .. ..$ global.node.degree                : int 2147483647
##   .. ..$ stupid.search                     : logi TRUE
##   .. ..$ stupid.search.max.iter            : int 1000
##   .. ..$ stupid.search.factor              : num 1.05
##   .. ..$ control.vb                        :List of 8
##   .. .. ..$ enable          : chr "auto"
##   .. .. ..$ strategy        : chr [1:2] "mean" "variance"
##   .. .. ..$ verbose         : logi TRUE
##   .. .. ..$ iter.max        : num 25
##   .. .. ..$ emergency       : num 25
##   .. .. ..$ f.enable.limit  : num [1:4] 30 25 1024 768
##   .. .. ..$ hessian.update  : num 2
##   .. .. ..$ hessian.strategy: chr [1:4] "default" "full" "partial" "diagonal"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_vb" "inla_ctrl_object"
##   .. ..$ num.gradient                      : chr "central"
##   .. ..$ num.hessian                       : chr "central"
##   .. ..$ optimise.strategy                 : chr "plain"
##   .. ..$ use.directions                    : num [1:6, 1:6] -0.584 0.363 0.618 -0.233 -0.293 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : chr [1:6] "theta:1" "theta:2" "theta:3" "theta:4" ...
##   .. .. .. ..$ : chr [1:6] "dir:1" "dir:2" "dir:3" "dir:4" ...
##   .. ..$ constr.marginal.diagonal          : num 1.49e-08
##   .. ..$ improved.simplified.laplace       : logi FALSE
##   .. ..$ parallel.linesearch               : logi FALSE
##   .. ..$ compute.initial.values            : logi TRUE
##   .. ..$ hessian.correct.skewness.only     : logi TRUE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_inla" "inla_ctrl_object"
##   ..$ control.fixed    :List of 10
##   .. ..$ cdf                   : NULL
##   .. ..$ quantiles             : NULL
##   .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ mean                  : num 0
##   .. ..$ mean.intercept        : num 0
##   .. ..$ prec                  : num 0.001
##   .. ..$ prec.intercept        : num 0
##   .. ..$ compute               : logi TRUE
##   .. ..$ correlation.matrix    : logi FALSE
##   .. ..$ remove.names          : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_fixed" "inla_ctrl_object"
##   ..$ control.mode     :List of 5
##   .. ..$ result : NULL
##   .. ..$ theta  : Named num [1:6] -6.968 -2.1743 2.5802 -1.1265 0.0306 ...
##   .. .. ..- attr(*, "names")= chr [1:6] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. ..$ x      : num [1:137302] 94.4 94.6 95.2 15.1 18 ...
##   .. ..$ restart: logi TRUE
##   .. ..$ fixed  : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_mode" "inla_ctrl_object"
##   ..$ control.expert   :List of 6
##   .. ..$ cpo.manual            : logi FALSE
##   .. ..$ cpo.idx               : num -1
##   .. ..$ disable.gaussian.check: logi FALSE
##   .. ..$ jp                    : NULL
##   .. ..$ dot.product.gain      : logi FALSE
##   .. ..$ globalconstr          :List of 2
##   .. .. ..$ A: NULL
##   .. .. ..$ e: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_expert" "inla_ctrl_object"
##   ..$ control.lincomb  :List of 1
##   .. ..$ verbose: logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lincomb" "inla_ctrl_object"
##   ..$ control.update   :List of 1
##   .. ..$ result: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_update" "inla_ctrl_object"
##   ..$ control.lp.scale :List of 1
##   .. ..$ hyper:List of 100
##   .. .. ..$ theta1  :List of 11
##   .. .. .. ..$ hyperid           : num 103001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta2  :List of 11
##   .. .. .. ..$ hyperid           : num 103002
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta3  :List of 11
##   .. .. .. ..$ hyperid           : num 103003
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta4  :List of 11
##   .. .. .. ..$ hyperid           : num 103004
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta5  :List of 11
##   .. .. .. ..$ hyperid           : num 103005
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta6  :List of 11
##   .. .. .. ..$ hyperid           : num 103006
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta7  :List of 11
##   .. .. .. ..$ hyperid           : num 103007
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta8  :List of 11
##   .. .. .. ..$ hyperid           : num 103008
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta9  :List of 11
##   .. .. .. ..$ hyperid           : num 103009
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta10 :List of 11
##   .. .. .. ..$ hyperid           : num 103010
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta11 :List of 11
##   .. .. .. ..$ hyperid           : num 103011
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta12 :List of 11
##   .. .. .. ..$ hyperid           : num 103012
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta13 :List of 11
##   .. .. .. ..$ hyperid           : num 103013
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta14 :List of 11
##   .. .. .. ..$ hyperid           : num 103014
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta15 :List of 11
##   .. .. .. ..$ hyperid           : num 103015
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta16 :List of 11
##   .. .. .. ..$ hyperid           : num 103016
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta17 :List of 11
##   .. .. .. ..$ hyperid           : num 103017
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta18 :List of 11
##   .. .. .. ..$ hyperid           : num 103018
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta19 :List of 11
##   .. .. .. ..$ hyperid           : num 103019
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta20 :List of 11
##   .. .. .. ..$ hyperid           : num 103020
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta21 :List of 11
##   .. .. .. ..$ hyperid           : num 103021
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta22 :List of 11
##   .. .. .. ..$ hyperid           : num 103022
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta23 :List of 11
##   .. .. .. ..$ hyperid           : num 103023
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta24 :List of 11
##   .. .. .. ..$ hyperid           : num 103024
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta25 :List of 11
##   .. .. .. ..$ hyperid           : num 103025
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta26 :List of 11
##   .. .. .. ..$ hyperid           : num 103026
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta27 :List of 11
##   .. .. .. ..$ hyperid           : num 103027
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta28 :List of 11
##   .. .. .. ..$ hyperid           : num 103028
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta29 :List of 11
##   .. .. .. ..$ hyperid           : num 103029
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta30 :List of 11
##   .. .. .. ..$ hyperid           : num 103030
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta31 :List of 11
##   .. .. .. ..$ hyperid           : num 103031
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta32 :List of 11
##   .. .. .. ..$ hyperid           : num 103032
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta33 :List of 11
##   .. .. .. ..$ hyperid           : num 103033
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta34 :List of 11
##   .. .. .. ..$ hyperid           : num 103034
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta35 :List of 11
##   .. .. .. ..$ hyperid           : num 103035
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta36 :List of 11
##   .. .. .. ..$ hyperid           : num 103036
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta37 :List of 11
##   .. .. .. ..$ hyperid           : num 103037
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta38 :List of 11
##   .. .. .. ..$ hyperid           : num 103038
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta39 :List of 11
##   .. .. .. ..$ hyperid           : num 103039
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta40 :List of 11
##   .. .. .. ..$ hyperid           : num 103040
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta41 :List of 11
##   .. .. .. ..$ hyperid           : num 103041
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta42 :List of 11
##   .. .. .. ..$ hyperid           : num 103042
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta43 :List of 11
##   .. .. .. ..$ hyperid           : num 103043
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta44 :List of 11
##   .. .. .. ..$ hyperid           : num 103044
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta45 :List of 11
##   .. .. .. ..$ hyperid           : num 103045
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta46 :List of 11
##   .. .. .. ..$ hyperid           : num 103046
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta47 :List of 11
##   .. .. .. ..$ hyperid           : num 103047
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta48 :List of 11
##   .. .. .. ..$ hyperid           : num 103048
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta49 :List of 11
##   .. .. .. ..$ hyperid           : num 103049
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta50 :List of 11
##   .. .. .. ..$ hyperid           : num 103050
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta51 :List of 11
##   .. .. .. ..$ hyperid           : num 103051
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta52 :List of 11
##   .. .. .. ..$ hyperid           : num 103052
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta53 :List of 11
##   .. .. .. ..$ hyperid           : num 103053
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta54 :List of 11
##   .. .. .. ..$ hyperid           : num 103054
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta55 :List of 11
##   .. .. .. ..$ hyperid           : num 103055
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta56 :List of 11
##   .. .. .. ..$ hyperid           : num 103056
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta57 :List of 11
##   .. .. .. ..$ hyperid           : num 103057
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta58 :List of 11
##   .. .. .. ..$ hyperid           : num 103058
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta59 :List of 11
##   .. .. .. ..$ hyperid           : num 103059
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta60 :List of 11
##   .. .. .. ..$ hyperid           : num 103060
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta61 :List of 11
##   .. .. .. ..$ hyperid           : num 103061
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta62 :List of 11
##   .. .. .. ..$ hyperid           : num 103062
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta63 :List of 11
##   .. .. .. ..$ hyperid           : num 103063
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta64 :List of 11
##   .. .. .. ..$ hyperid           : num 103064
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta65 :List of 11
##   .. .. .. ..$ hyperid           : num 103065
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta66 :List of 11
##   .. .. .. ..$ hyperid           : num 103066
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta67 :List of 11
##   .. .. .. ..$ hyperid           : num 103067
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta68 :List of 11
##   .. .. .. ..$ hyperid           : num 103068
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta69 :List of 11
##   .. .. .. ..$ hyperid           : num 103069
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta70 :List of 11
##   .. .. .. ..$ hyperid           : num 103070
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta71 :List of 11
##   .. .. .. ..$ hyperid           : num 103071
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta72 :List of 11
##   .. .. .. ..$ hyperid           : num 103072
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta73 :List of 11
##   .. .. .. ..$ hyperid           : num 103073
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta74 :List of 11
##   .. .. .. ..$ hyperid           : num 103074
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta75 :List of 11
##   .. .. .. ..$ hyperid           : num 103075
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta76 :List of 11
##   .. .. .. ..$ hyperid           : num 103076
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta77 :List of 11
##   .. .. .. ..$ hyperid           : num 103077
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta78 :List of 11
##   .. .. .. ..$ hyperid           : num 103078
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta79 :List of 11
##   .. .. .. ..$ hyperid           : num 103079
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta80 :List of 11
##   .. .. .. ..$ hyperid           : num 103080
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta81 :List of 11
##   .. .. .. ..$ hyperid           : num 103081
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta82 :List of 11
##   .. .. .. ..$ hyperid           : num 103082
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta83 :List of 11
##   .. .. .. ..$ hyperid           : num 103083
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta84 :List of 11
##   .. .. .. ..$ hyperid           : num 103084
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta85 :List of 11
##   .. .. .. ..$ hyperid           : num 103085
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta86 :List of 11
##   .. .. .. ..$ hyperid           : num 103086
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta87 :List of 11
##   .. .. .. ..$ hyperid           : num 103087
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta88 :List of 11
##   .. .. .. ..$ hyperid           : num 103088
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta89 :List of 11
##   .. .. .. ..$ hyperid           : num 103089
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta90 :List of 11
##   .. .. .. ..$ hyperid           : num 103090
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta91 :List of 11
##   .. .. .. ..$ hyperid           : num 103091
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta92 :List of 11
##   .. .. .. ..$ hyperid           : num 103092
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta93 :List of 11
##   .. .. .. ..$ hyperid           : num 103093
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta94 :List of 11
##   .. .. .. ..$ hyperid           : num 103094
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta95 :List of 11
##   .. .. .. ..$ hyperid           : num 103095
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta96 :List of 11
##   .. .. .. ..$ hyperid           : num 103096
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta97 :List of 11
##   .. .. .. ..$ hyperid           : num 103097
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta98 :List of 11
##   .. .. .. ..$ hyperid           : num 103098
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta99 :List of 11
##   .. .. .. ..$ hyperid           : num 103099
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. [list output truncated]
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lp_scale" "inla_ctrl_object"
##   ..$ control.pardiso  :List of 4
##   .. ..$ verbose            : logi FALSE
##   .. ..$ debug              : logi FALSE
##   .. ..$ parallel.reordering: logi TRUE
##   .. ..$ nrhs               : num -1
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_pardiso" "inla_ctrl_object"
##   ..$ only.hyperparam  : logi FALSE
##   ..$ inla.call        : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/inla.mkl.run"
##   ..$ num.threads      : chr "24:1"
##   ..$ keep             : logi FALSE
##   ..$ silent           : logi TRUE
##   ..$ inla.mode        : chr "compact"
##   ..$ safe             : logi TRUE
##   ..$ debug            : logi FALSE
##   ..$ .parent.frame    :<environment: R_GlobalEnv> 
##  $ call                       : chr [1:14] "inla.core(formula = formula, family = family, contrasts = contrasts, " "    data = data, quantiles = quantiles, E = E, offset = offset, " "    scale = scale, weights = weights, Ntrials = Ntrials, strata = strata, " "    lp.scale = lp.scale, link.covariates = link.covariates, verbose = verbose, " ...
##  $ model.matrix               :Formal class 'dsparseModelMatrix' [package "MatrixModels"] with 8 slots
##   .. ..@ i        : int(0) 
##   .. ..@ p        : int 0
##   .. ..@ Dim      : int [1:2] 55730 0
##   .. ..@ Dimnames :List of 2
##   .. .. ..$ : chr [1:55730] "1" "2" "3" "4" ...
##   .. .. ..$ : NULL
##   .. ..@ x        : num(0) 
##   .. ..@ factors  : list()
##   .. ..@ assign   : int(0) 
##   .. ..@ contrasts: Named list()
##  $ bru_iinla                  :List of 5
##   ..$ log       :Class 'bru_log'  hidden list of 2
##   .. ..$ log      : chr [1:7] "2024-05-21 18:34:12.897974: iinla: Evaluate component inputs" "2024-05-21 18:34:13.130949: iinla: Evaluate component linearisations" "2024-05-21 18:34:27.66509: iinla: Evaluate component simplifications" "2024-05-21 18:34:41.788861: iinla: Evaluate predictor linearisation" ...
##   .. ..$ bookmarks: Named int 0
##   .. .. ..- attr(*, "names")= chr "iinla"
##   ..$ states    :List of 1
##   .. ..$ :List of 3
##   .. .. ..$ Intercept : num 0
##   .. .. ..$ SpeedLimit: num 0
##   .. .. ..$ field     : num [1:55728] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ inla_stack:List of 3
##   .. ..$ A      :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:103342] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ p       : int [1:55731] 0 25842 51684 51684 51684 51686 51686 51694 51700 51700 ...
##   .. .. .. ..@ Dim     : int [1:2] 25842 55730
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:103342] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ data   :List of 5
##   .. .. ..$ data :'data.frame':  25842 obs. of  6 variables:
##   .. .. .. ..$ BRU.response: num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. .. .. ..$ BRU.E       : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.Ntrials : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.weights : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.scale   : num [1:25842] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.offset  : num [1:25842] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. ..$ nrow : int 25842
##   .. .. ..$ ncol : Named int [1:6] 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:6] "BRU.response" "BRU.E" "BRU.Ntrials" "BRU.weights" ...
##   .. .. ..$ names:List of 6
##   .. .. .. ..$ BRU.response: chr "BRU.response"
##   .. .. .. ..$ BRU.E       : chr "BRU.E"
##   .. .. .. ..$ BRU.Ntrials : chr "BRU.Ntrials"
##   .. .. .. ..$ BRU.weights : chr "BRU.weights"
##   .. .. .. ..$ BRU.scale   : chr "BRU.scale"
##   .. .. .. ..$ BRU.offset  : chr "BRU.offset"
##   .. .. ..$ index:List of 1
##   .. .. .. ..$ : num [1:25842] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..$ effects:List of 5
##   .. .. ..$ data :'data.frame':  55730 obs. of  9 variables:
##   .. .. .. ..$ Intercept       : num [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.group : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.repl  : int [1:55730] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit      : num [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit.group: int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit.repl : int [1:55730] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ field           : int [1:55730] NA NA 1 2 3 4 5 6 7 8 ...
##   .. .. .. ..$ field.group     : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ field.repl      : int [1:55730] NA NA 1 1 1 1 1 1 1 1 ...
##   .. .. ..$ nrow : int 55730
##   .. .. ..$ ncol : Named int [1:9] 1 1 1 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:9] "Intercept" "Intercept.group" "Intercept.repl" "SpeedLimit" ...
##   .. .. ..$ names:List of 9
##   .. .. .. ..$ Intercept       : chr "Intercept"
##   .. .. .. ..$ Intercept.group : chr "Intercept.group"
##   .. .. .. ..$ Intercept.repl  : chr "Intercept.repl"
##   .. .. .. ..$ SpeedLimit      : chr "SpeedLimit"
##   .. .. .. ..$ SpeedLimit.group: chr "SpeedLimit.group"
##   .. .. .. ..$ SpeedLimit.repl : chr "SpeedLimit.repl"
##   .. .. .. ..$ field           : chr "field"
##   .. .. .. ..$ field.group     : chr "field.group"
##   .. .. .. ..$ field.repl      : chr "field.repl"
##   .. .. ..$ index:List of 3
##   .. .. .. ..$ : int 1
##   .. .. .. ..$ : int 2
##   .. .. .. ..$ : int [1:55728] 3 4 5 6 7 8 9 10 11 12 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..- attr(*, "class")= chr "inla.data.stack"
##   ..$ track     :'data.frame':   111467 obs. of  6 variables:
##   .. ..$ effect           : chr [1:111467] "Intercept" "SpeedLimit" "field" "field" ...
##   .. ..$ index            : num [1:111467] 1 1 1 2 3 4 5 6 7 8 ...
##   .. ..$ iteration        : num [1:111467] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ mode             : num [1:111467] NA NA NA NA NA NA NA NA NA NA ...
##   .. ..$ sd               : num [1:111467] NA NA NA NA NA NA NA NA NA NA ...
##   .. ..$ new_linearisation: num [1:111467] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ timings   :'data.frame':   2 obs. of  5 variables:
##   .. ..$ Task     : chr [1:2] "Preprocess" "Run inla()"
##   .. ..$ Iteration: num [1:2] 1 1
##   .. ..$ Time     : 'difftime' num [1:2] 106.881 22614.963
##   .. .. ..- attr(*, "units")= chr "secs"
##   .. ..$ System   : 'difftime' num [1:2] 0.0659999999999998 1.058
##   .. .. ..- attr(*, "units")= chr "secs"
##   .. ..$ Elapsed  : 'difftime' num [1:2] 106.771 3604.076
##   .. .. ..- attr(*, "units")= chr "secs"
##  $ bru_timings                :'data.frame': 3 obs. of  5 variables:
##   ..$ Task     : chr [1:3] "Preprocess" "Preprocess" "Run inla()"
##   ..$ Iteration: num [1:3] 0 1 1
##   ..$ Time     : 'difftime' num [1:3] 0.224999999999909 106.881 22614.963
##   .. ..- attr(*, "units")= chr "secs"
##   ..$ System   : 'difftime' num [1:3] 0 0.0659999999999998 1.058
##   .. ..- attr(*, "units")= chr "secs"
##   ..$ Elapsed  : 'difftime' num [1:3] 0.225999999999999 106.771 3604.076
##   .. ..- attr(*, "units")= chr "secs"
##  $ bru_info                   :List of 6
##   ..$ method         : chr "bru"
##   ..$ model          :List of 2
##   .. ..$ effects:List of 3
##   .. .. ..$ Intercept :List of 12
##   .. .. .. ..$ label       : chr "Intercept"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : num 1
##   .. .. .. .. .. ..$ label   : chr "Intercept"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x56445a02e5a8> 
##   .. .. .. ..$ fcall       : language "f"(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ SpeedLimit:List of 12
##   .. .. .. ..$ label       : chr "SpeedLimit"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1,      values = BRU_SpeedLimit_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol SpeedLimit
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x56445b4490c8> 
##   .. .. .. ..$ fcall       : language "f"(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1,      values = BRU_SpeedLimit_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ field     :List of 12
##   .. .. .. ..$ label       : chr "field"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol loc
##   .. .. .. .. .. ..$ label   : chr "field"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ model:List of 21
##   .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. ..$ n       : int 13932
##   .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ alpha      : int 1
##   .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ start.theta     : num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. .. .. .. .. ..$ characters:List of 3
##   .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 3
##   .. .. .. .. .. .. .. .. .. .. ..$ B_tau           : num [1:69662] 13932 5 -0.693 -1 0.5 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ B_kappa         : num [1:69662] 13932 5 0.693 0 -1 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ C: num [1:41799] 13932 13932 13932 0 1 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ G: num [1:132615] 13932 13932 44204 0 5681 ...
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. .. .. .. .. ..$ nu                  : num 0.5
##   .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. .. .. .. .. ..$ mean       : num 1
##   .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. .. .. .. .. ..$ start.nu            : num 0.5
##   .. .. .. .. .. .. ..$ integer.nu          : logi TRUE
##   .. .. .. .. .. .. ..$ start.theta         : num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. .. ..$ stationary          : logi FALSE
##   .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. ..$ est_nu              : logi FALSE
##   .. .. .. .. .. .. ..$ nu.upper.bound      : num 2
##   .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. ..$ fem_mesh            :List of 4
##   .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. ..$ n.spde              : int 13932
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. ..$ model         :List of 21
##   .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. ..$ n       : int 13932
##   .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. ..$ alpha      : int 1
##   .. .. .. .. .. .. .. .. ..$ doubles   :List of 2
##   .. .. .. .. .. .. .. .. .. ..$ start.theta     : num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. .. .. .. ..$ characters:List of 3
##   .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. ..$ matrices  :List of 3
##   .. .. .. .. .. .. .. .. .. ..$ B_tau           : num [1:69662] 13932 5 -0.693 -1 0.5 ...
##   .. .. .. .. .. .. .. .. .. ..$ B_kappa         : num [1:69662] 13932 5 0.693 0 -1 ...
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. .. .. .. ..$ C: num [1:41799] 13932 13932 13932 0 1 ...
##   .. .. .. .. .. .. .. .. .. ..$ G: num [1:132615] 13932 13932 44204 0 5681 ...
##   .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. .. .. .. ..$ nu                  : num 0.5
##   .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. .. .. .. ..$ mean       : num 1
##   .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. .. .. .. ..$ start.nu            : num 0.5
##   .. .. .. .. .. ..$ integer.nu          : logi TRUE
##   .. .. .. .. .. ..$ start.theta         : num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. ..$ stationary          : logi FALSE
##   .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. ..$ est_nu              : logi FALSE
##   .. .. .. .. .. ..$ nu.upper.bound      : num 2
##   .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. ..$ fem_mesh            :List of 4
##   .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. ..$ n.spde              : int 13932
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. ..$ type          : chr "cgeneric"
##   .. .. .. .. ..$ n             : num 13932
##   .. .. .. .. ..$ values        : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "field.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : language data_rspde_bru_nonstat[["repl"]]
##   .. .. .. .. .. ..$ label   : chr "field.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 4
##   .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : int 4
##   .. .. .. .. ..$ values        : int [1:4] 1 2 3 4
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x56445a00c2d0> 
##   .. .. .. ..$ fcall       : language "f"(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     :List of 1
##   .. .. .. .. .. .. .. .. ..$ model:List of 21
##   .. .. .. .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. .. .. .. ..$ n       : int 13932
##   .. .. .. .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ n    : int 13932
##   .. .. .. .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ n          : int 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:29068] 0 0 0 0 1 1 1 1 1 2 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:29068] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ alpha      : int 1
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ start.theta     : num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean: num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ characters:List of 3
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_int_model"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 3
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ B_tau           : num [1:69662] 13932 5 -0.693 -1 0.5 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ B_kappa         : num [1:69662] 13932 5 0.693 0 -1 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ C: num [1:41799] 13932 13932 13932 0 1 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ G: num [1:132615] 13932 13932 44204 0 5681 ...
##   .. .. .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. .. .. .. ..$ cgeneric_type       : chr "int_alpha"
##   .. .. .. .. .. .. .. .. .. ..$ nu                  : num 0.5
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ loglocation: num -5e-06
##   .. .. .. .. .. .. .. .. .. .. ..$ mean       : num 1
##   .. .. .. .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.5
##   .. .. .. .. .. .. .. .. .. ..$ integer.nu          : logi TRUE
##   .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:4] 2.84 -1.26 0 0
##   .. .. .. .. .. .. .. .. .. ..$ stationary          : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. .. .. .. ..$ est_nu              : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 2
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 5 7 9 9 10 12 13 14 15 12 18 19 21 20 22 24 26 28 30 ...
##     edge_lengths: 0.0820202978316493 0.13610246403764 0.07378151878521 0.0 ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 11104
##     nV: 8781
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.40171 -122.40078 -122.44449 -122.44331 -122.41216 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 5502 2 359 3 4077 4 5117 5 7 5419 8 9 10 11 4817 4613  ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. .. .. .. ..$ fem_mesh            :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ j       : int [1:13932] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:13932] 0.0534 0.0776 0.0408 0.0457 0.0367 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:44204] 0 5681 8781 11463 1 8781 11429 11463 13882 2 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 4 9 12 15 18 23 26 29 34 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:44204] 210.6 -161.9 -24.4 -24.4 103.4 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:81554] 0 1 5399 5681 8781 11463 0 1 4450 8781 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 6 13 18 23 28 37 42 47 56 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:81554] 1731368 28997 607384 -2117274 -125237 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:124984] 0 1 805 5399 5681 8781 11429 11463 13882 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:13933] 0 9 18 25 32 43 56 65 72 85 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 13932 13932
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:124984] 1.84e+10 1.88e+08 -4.79e+08 9.57e+09 -2.57e+10 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. .. .. .. ..$ n.spde              : int 13932
##   .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 4
##   .. .. .. .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 13932
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 13932
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:13932] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 55728
##   .. .. .. .. .. .. ..$ n_inla           : num 55728
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 55728 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 55728
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..- attr(*, "class")= chr [1:2] "component_list" "list"
##   .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..$ formula:Class 'formula'  language BRU_response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..- attr(*, "class")= chr [1:2] "bru_model" "list"
##   ..$ lhoods         :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ family        : chr "T"
##   .. .. ..$ formula       :Class 'formula'  language speed ~ .
##   .. .. .. .. ..- attr(*, ".Environment")=<environment: 0x56445a73ed68> 
##   .. .. ..$ response_data :List of 4
##   .. .. .. ..$ BRU_response: num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. .. .. ..$ BRU_E       : num 1
##   .. .. .. ..$ BRU_Ntrials : num 1
##   .. .. .. ..$ BRU_scale   : num 1
##   .. .. ..$ data          :List of 8
##   .. .. .. ..$ speed            : num [1:25842] 99.8 91.7 99.8 14.5 16.1 ...
##   .. .. .. ..$ SpeedLimit       : num [1:25842] 4.09 4.09 4.09 -1.04 -1.04 ...
##   .. .. .. ..$ .coord_x         : num [1:25842] -122 -122 -122 -122 -122 ...
##   .. .. .. ..$ .coord_y         : num [1:25842] 37.7 37.7 37.7 37.8 37.8 ...
##   .. .. .. ..$ .edge_number     : num [1:25842] 2 2 2 3 3 3 5 6 6 6 ...
##   .. .. .. ..$ .distance_on_edge: num [1:25842] 0.195 0.227 0.363 0.309 0.583 ...
##   .. .. .. ..$ .group           : chr [1:25842] "1" "1" "1" "1" ...
##   .. .. .. ..$ loc              : num [1:25842, 1:2] 2 2 2 3 3 3 5 6 6 6 ...
##   .. .. .. ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##   .. .. ..$ E             : num 1
##   .. .. ..$ Ntrials       : num 1
##   .. .. ..$ weights       : num 1
##   .. .. ..$ scale         : num 1
##   .. .. ..$ samplers      : NULL
##   .. .. ..$ linear        : logi TRUE
##   .. .. ..$ expr          : NULL
##   .. .. ..$ response      : chr "BRU_response"
##   .. .. ..$ inla.family   : chr "T"
##   .. .. ..$ domain        : NULL
##   .. .. ..$ used          :List of 2
##   .. .. .. ..$ effect: chr [1:3] "Intercept" "SpeedLimit" "field"
##   .. .. .. ..$ latent: chr(0) 
##   .. .. .. ..- attr(*, "class")= chr "bru_used"
##   .. .. ..$ allow_combine : logi TRUE
##   .. .. ..$ control.family: NULL
##   .. .. ..- attr(*, "class")= chr [1:2] "bru_like" "list"
##   .. ..- attr(*, "class")= chr [1:2] "bru_like_list" "list"
##   ..$ options        :List of 14
##   .. ..$ bru_verbose      : num 0
##   .. ..$ bru_verbose_store: num Inf
##   .. ..$ bru_max_iter     : num 1
##   .. ..$ bru_run          : logi TRUE
##   .. ..$ bru_int_args     :List of 3
##   .. .. ..$ method: chr "stable"
##   .. .. ..$ nsub1 : num 30
##   .. .. ..$ nsub2 : num 9
##   .. ..$ bru_method       :List of 6
##   .. .. ..$ taylor         : chr "pandemic"
##   .. .. ..$ search         : chr "all"
##   .. .. ..$ factor         : num 1.62
##   .. .. ..$ rel_tol        : num 0.1
##   .. .. ..$ max_step       : num 2
##   .. .. ..$ line_opt_method: chr "onestep"
##   .. ..$ bru_compress_cp  : logi TRUE
##   .. ..$ bru_debug        : logi FALSE
##   .. ..$ E                : num 1
##   .. ..$ Ntrials          : num 1
##   .. ..$ control.compute  :List of 3
##   .. .. ..$ config: logi TRUE
##   .. .. ..$ dic   : logi TRUE
##   .. .. ..$ waic  : logi TRUE
##   .. ..$ control.inla     :List of 1
##   .. .. ..$ int.strategy: chr "auto"
##   .. ..$ control.fixed    :List of 1
##   .. .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ verbose          : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "bru_options" "list"
##   ..$ inlabru_version: Named chr "2.10.1.9007"
##   .. ..- attr(*, "names")= chr "version"
##   ..$ INLA_version   : Named chr "24.05.18-2"
##   .. ..- attr(*, "names")= chr "version"
##   ..- attr(*, "class")= chr [1:2] "bru_info" "list"
##  - attr(*, "class")= chr [1:3] "bru" "iinla" "inla"
nonstat.time.fin <- Sys.time()
print(nonstat.time.fin - nonstat.time.ini)
## Time difference of 1.036064 hours
summary(rspde_fit_nonstat)
## inlabru version: 2.10.1.9007
## INLA version: 24.05.18-2
## Components:
## Intercept: main = linear(1), group = exchangeable(1L), replicate = iid(1L)
## SpeedLimit: main = linear(SpeedLimit), group = exchangeable(1L), replicate = iid(1L)
## field: main = cgeneric(loc), group = exchangeable(1L), replicate = iid(data_rspde_bru_nonstat[["repl"]])
## Likelihoods:
##   Family: 'T'
##     Data class: 'metric_graph_data', 'list'
##     Predictor: speed ~ .
## Time used:
##     Pre = 0.346, Running = 2033, Post = 3.44, Total = 2037 
## Fixed effects:
##              mean    sd 0.025quant 0.5quant 0.975quant   mode kld
## Intercept  28.543 0.181     28.189   28.543     28.897 28.543   0
## SpeedLimit 10.103 0.160      9.789   10.103     10.418 10.103   0
## 
## Random effects:
##   Name     Model
##     field CGeneric
## 
## Model hyperparameters:
##                                            mean   sd 0.025quant 0.5quant
## precision for the student-t observations  0.001 0.00      0.001    0.001
## degrees of freedom for student-t          2.118 0.00      2.118    2.118
## Theta1 for field                          2.140 0.00      2.139    2.140
## Theta2 for field                         -0.958 0.00     -0.958   -0.958
## Theta3 for field                          0.021 0.00      0.020    0.021
## Theta4 for field                         -0.086 0.00     -0.087   -0.086
##                                          0.975quant   mode
## precision for the student-t observations      0.001  0.001
## degrees of freedom for student-t              2.118  2.118
## Theta1 for field                              2.141  2.140
## Theta2 for field                             -0.957 -0.958
## Theta3 for field                              0.021  0.021
## Theta4 for field                             -0.086 -0.086
## 
## Deviance Information Criterion (DIC) ...............: 207939.52
## Deviance Information Criterion (DIC, saturated) ....: -4397.24
## Effective number of parameters .....................: 2668.51
## 
## Watanabe-Akaike information criterion (WAIC) ...: 208425.26
## Effective number of parameters .................: 3017.32
## 
## Marginal log-Likelihood:  -108215.50 
##  is computed 
## Posterior summaries for the linear predictor and the fitted values are computed
## (Posterior marginals needs also 'control.compute=list(return.marginals.predictor=TRUE)')
summary(rspde.result(rspde_fit_nonstat, "field", rspde_model_nonstat))
##                     mean          sd 0.025quant   0.5quant 0.975quant
## Theta1.matern  2.1399500 0.000429373  2.1390200  2.1399700  2.1406900
## Theta2.matern -0.9575790 0.000423461 -0.9583030 -0.9576090 -0.9566540
## Theta3.matern  0.0205873 0.000379748  0.0198644  0.0205792  0.0213620
## Theta4.matern -0.0864697 0.000391144 -0.0872828 -0.0864561 -0.0857437
##                     mode
## Theta1.matern  2.1401200
## Theta2.matern -0.9577620
## Theta3.matern  0.0205398
## Theta4.matern -0.0863904

1.3 Crossvalidation 1

#load(here("Models_output/distmatrixfixed.RData"))

points = data %>%
  as.data.frame() %>%
  st_as_sf(coords = c(".coord_x", ".coord_y"), crs = 4326) %>%
  mutate(., index = 1:nrow(.)) %>% 
  st_drop_geometry() %>%
  dplyr:::select(speed, .group, index) %>%
  mutate(.group = as.numeric(.group)) %>%
  group_by(.group) %>%
  mutate(indexingroup = seq_len(n())) %>%
  ungroup()

distance = seq(from = 0, to = 200, by = 20)/1000

The code of chunk below was executed only one time.


{r}
load(here("Models_output/distmatrixfixed_19May24.RData"))

points = data %>%
  as.data.frame() %>%
  st_as_sf(coords = c(".coord_x", ".coord_y"), crs = 4326) %>%
  mutate(., index = 1:nrow(.)) %>% 
  st_drop_geometry() %>%
  dplyr:::select(speed, .group, index) %>%
  mutate(.group = as.numeric(.group)) %>%
  group_by(.group) %>%
  mutate(indexingroup = seq_len(n())) %>%
  ungroup()

distance = seq(from = 0, to = 200, by = 20)/1000

GROUPS <- list()
for (j in 1:length(distance)) {
  print(j)
  GROUPS[[j]] = list()
  for (i in 1:nrow(points)) {
    rowi = points[i, ]
    GROUPS[[j]][[i]] <- which(as.vector(distmatrixlist[[rowi$.group]][rowi$indexingroup,]) <= distance[j])
  }
}
save(GROUPS, file = here("Models_output/GROUPS_19May24.RData"))

The code of chunk above was executed only one time.


load(here("Models_output/GROUPS_19May24.RData"))
mse.stat <- mse.nonstat <- ls.stat <- ls.nonstat <- rep(0,length(distance))
# cross-validation for-loop
for (j in 1:length(distance)) {
  print(j)
  # cross-validation of the stationary model
  cv.stat <- inla.group.cv(rspde_fit_stat, groups = GROUPS[[j]])
  # cross-validation of the nonstationary model
  cv.nonstat <- inla.group.cv(rspde_fit_nonstat, groups = GROUPS[[j]])
  # obtain MSE and LS
  mse.stat[j] <- mean((cv.stat$mean - points$speed)^2)
  mse.nonstat[j] <- mean((cv.nonstat$mean - points$speed)^2)
  ls.stat[j] <- mean(log(cv.stat$cv))
  ls.nonstat[j] <- mean(log(cv.nonstat$cv))
}
## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
## [1] 6
## [1] 7
## [1] 8
## [1] 9
## [1] 10
## [1] 11

## plot results
par(mfrow = c(2,2), family = "Palatino")

# Plot MSE
plot(distance, mse.stat, main = "MSE", ylim = c(min(mse.nonstat, mse.stat), max(mse.nonstat, mse.stat)),
     type = "l", ylab = "MSE", xlab = "distance in m", col = "black")
lines(distance, mse.nonstat, col = "blue")
legend("bottomright", legend = c("Stationary", "Non-stationary"), col = c("black", "blue"), lty = 1)

# Plot log-score
plot(distance, -ls.stat, main = "log-score", ylim = c(min(-ls.nonstat, -ls.stat), max(-ls.nonstat, -ls.stat)),
     type = "l", ylab = "log-score", xlab = "distance in m", col = "black")
## Error in plot.window(...): need finite 'ylim' values

lines(distance, -ls.nonstat, col = "blue")
legend("bottomright", legend = c("Stationary", "Non-stationary"), col = c("black", "blue"), lty = 1)
finaltimeallprocedure <- Sys.time()
print(finaltimeallprocedure - timeallprocedure)
## Time difference of 1.395466 hours
save.image(here(paste0("Models_output/", rmarkdown::metadata$title, ".RData")))
|..                                          |   5% [xaringanExtra-clipboard]

processing file: Highways4.Rmd
  |..............................              |  67% [unnamed-chunk-27]       

    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.00 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.00 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.00 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.00 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.00 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.00 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.00 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.


    *** warning *** max_correction = 25.01 >= 25.00, 'vb.correction' is aborted
    *** You can change the emergency value (current value=25.00) by 
    ***     'control.inla=list(control.vb=list(emergency=...))'

    *** Please (re-)consider your model, priors, confounding, etc.
  |.....................................       |  84% [unnamed-chunk-34]       

    GitId: b51fb385728e90bce98ca92b1d8762a2d13f655c - Sat May 18 13:21:08 2024 +0300
    Error:12 Reason: The Newton-Raphson optimizer did not converge
    Message: Condition `lambda < 1.0 / lambda_lim' is not TRUE
    Line:1025 Function: GMRFLib_init_GMRF_approximation_store__intern

Segmentation fault
Killed
                                                                                                                    
/usr/lib/rstudio/resources/app/bin/quarto/bin/tools/x86_64/pandoc +RTS -K512m -RTS Highways4.knit.md --to html4 --from markdown+autolink_bare_uris+tex_math_single_backslash --output Highways4.html --lua-filter /home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/rmarkdown/rmarkdown/lua/pagebreak.lua --lua-filter /home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/rmarkdown/rmarkdown/lua/latex-div.lua --embed-resources --standalone --variable bs3=TRUE --section-divs --table-of-contents --toc-depth 3 --variable toc_float=1 --variable toc_selectors=h1,h2,h3 --variable toc_collapsed=1 --variable toc_smooth_scroll=1 --variable toc_print=1 --template /home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/rmarkdown/rmd/h/default.html --highlight-style pygments --number-sections --variable theme=flatly --mathjax --variable 'mathjax-url=https://cdn.jsdelivr.net/npm/mathjax@3/es5/tex-mml-chtml.js' --include-in-header /tmp/RtmpQjnBgO/rmarkdown-str320ac343c247f6.html --variable code_folding=show --variable code_menu=1 
output file: Highways4.knit.md


Output created: Highways4.html